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BEVEZETÉS 


Ez a könyv a , Gépi kódú programozás a Commodore 64-esen" c. könyv folyta- 
tásának tekinthető. 

Feltételezve, hogy az Olvasó elsajátította az ott közölt alapismereteket, ebben 
a kötetben a gépi kódú programok magasabb szintű alkalmazási lehetőségeit 
szeretnénk bemutatni. 

Annak ellenére, hogy a programokat a C—64-es gépre írtuk, a C—128-as gép 
tulajdonosait sem zárjuk ki az Olvasók köréből. A C-128-as gép átkapcsolható 
C-—-64-es üzemmódra, a programok tehát változtatás nélkül futtathatóak a 
C—128-as gépen. 

Ha valaki mégis szeretné átírni a programokat C—128-as üzemmódra, hasznos 
segédeszközökre talál a , 128 Intern" c. könyvben, ill. a jelen könyv függeléké- 
ben található táblázatban. A programok átírása nem jelent különösebben ne- 
héz feladatot, hiszen a 128-as operációs rendszer a 64-es rendszer bővítése. 
Ahol szükséges, mindig utalunk majd a két gép közötti különbözőségre. 


A könyv három fejezetből áll: 


Az első fejezetben részletesen bemutatjuk, hogyan tárolja és ábrázolja a 
Commodore 64-es a számokat, ill. milyen beépített gépi kódú rutinok teremtik 
meg azt a lehetőséget, hogy az egyik ábrázolási módról áttérjünk a másikra. 
Ismertetjük a beépített aritmetikai rutinokat, és feltárjuk ezek alkalmazási 
lehetőségeit. A fejezet egyik legérdekesebb része az, amelyben saját USR 
függvénnyel hívható aritmetikai rutinokat készítünk. 


A második fejezet tartalma biztosan nagyon sok érdekességet nyújt azoknak 
az Olvasóinknak, akik elsősorban gépi kódban programoznak. A fejezet témája 
a Commodore 64-es megszakítási technikája. A rendszermegszakítás fogalmá- 
nak tisztázása után bemutatjuk a megszakítások kiváltásának lehetőségeit. 
Az elméleti megfontolásokat mindenütt konkrét feladatok megoldására szolgá- 
ló mintaprogramokkal szemléltetjük. A fejezet utolsó példája egy olyan gépi 
kódú rutin, amely egy BASIC szubrutin megszakításokkal vezérelt hívását 
valósítja meg. 


A harmadik fejezetben a BASIC értelmező (interpreter) és az operációs rend- 
szer vektorait ismertetjük. 

Az egyes vektorok működését itt is programok szemléltetik. Példát mutatunk 
arra is, hogy miként lehet a beépített vektorokat saját utasítások (pl. a REPEAT- 
UNTIL utasításpár) meghatározására felhasználni. 


1.1 SZÁMÁBRÁZOLÁS A közbeszéd 64-ES ÉS 128-AS 
GÉPEKEN 


A Commodore 64-es és 128-as kétféle belső számábrázolási móddal rendelke- 
zik: 

Az ábrázolási módok egyike, az olvasó által biztosan jól ismert egész típusú 
vagy INTEGER ábrázolás. Az egész típusú változó értéke — 32 768-tól -- 32 767- 
ig terjedhet és tárolása két byte-ot vesz igénybe. A két byte 16 bitje közül a 
legfelső bit az előjel meghatározására szolgál. 


469636 Vrlre 94369 
Decimalis Binaris Hexadecíiímalis 3 
-52768 1í1 000 0000 00200 "0000 Bo 00 
52767 1 000 9000 0000 0001 ego 21 
52766 1 009 0000 02900 09010 Bo 02 
32765 1 090 0000 0090 0011 eg oz 
2 d ládd 2314 4131. 14408 FF FE 

3 d 111 1343 Jú31 1141 FF FF 

a 9 000 0200 0000 0000 eg 00 

1 g 00 0000 0009 0001 00 01 

2 9 000 0000 0000 009010 00 02 
52766 0.111 -1di1 1131 114198 7F FE 
I2767 gp e éb végy ip zo RE 4 b eb b ELS 7F FF 


Az előjeles 16 bites számábrázoláshoz hasonló a 8 bites előjeles számábrázo- 
lás, ahol a számok értéke — 128 és -4- 127 közé eshet és amellyel már találkoz- 
hattunk a relatív címzés kapcsán. 
Vannak olyan számítógépes feladatok, amelyek megoldásához elegendőek az 
adott tartományba eső egész számok, ez azonban nem általános. A legtöbb 
feladatot nem lehet megoldani az egész számok körében és nem sokra men- 
nénk a számítógéppel, ha az nem tudna műveleteket végezni tizedesjegyeket 
tartalmazó, bővebb értéktartományú számokkal. Az ilyen típusú számokat a 
gép lebegőpontos formában ábrázolja. A lebegőpontos elnevezést a fixpontos 
ellentéteként értelmezhetjük. A fixpontos számábrázolásban a. tizedespont 
helye rögzített, a rögzített számú tárolóhelyek valamelyikén. Az egész típusú 
számok is fixpontosnak tekinthetőek, hiszen a tizedespont azonos helyen, az 
utolsó értékes jegy mögött képzelhető el. A lebegőpontos tárolás alapelve 
egészen más. 
Tegyük fel, hogy 10-es számrendszerben dolgozunk. A lebegőpontos ábrázo- 
láshoz a számot először felbontjuk egy 1 és 10 közé eső szám és 10 (a 
számrendszer alapja) valamely hatványának szorzatára. 
BI 
15 — 1.5410! 
230 — 2.34107 


A felbontásban 10 hatványkitevője természetesen negatív, illetve nulla is lehet: 


8 


5 — 5410" 
0.7 — 7410 ! 
Ha a számrendszer alapja rögzített, a fenti felbontás bármely számra egyértel- 
műen elvégezhető, azaz minden számhoz egyértelműen meghatározhatjuk a 
mantisszát (utolsó példánkban 7) és a kitevőt (az utolsó példában — 1). A szám 
így kapott alakját normál alaknak nevezzük. A normál alakban szereplő szorzó- 
tényező (mantissza) értéke mindig 1 és a számrendszer alapja közé esik. 
A normál alakban felírt számokkal rögzített matematikai szabályok szerint 
végezhetünk műveleteket: pl. két ilyen alakú szám szorzatát megkapjuk, ha 
mantisszáikat összeszorozzuk, kitevőiket pedig összeadjuk. Ha a mantisszák 
szorzata nagyobb mint 10, akkor ezt 10-zel osztjuk, és a kitevőt módosítjuk. 
Nézzünk erre példát: : 


510" szorozva 710 " 


A mantisszák szorzata 35, a kitevők összege —1, a szorzat tehát 3510 !. Az 
eredményt normalizálni kell. A mantisszában a tizedespontot egy hellyel balra 
toljuk és a kitevőt ezzel egyidejűleg eggyel megnöveljük. Ha a tizedespontot 
jobbra kellett volna eltolnunk, a kitevőt természetesen csökkentenünk kellett 
volna. 

Két normál alakban megadott számot a matematika szabályai szerint csak 
akkor tudunk összeadni, ha a kitevőjük egyenlő. A fenti példában azt a számot 
módosítjuk, amelyiknek a kitevője kisebb. 


7107! — 0.710" 
Most már összeadhatjuk a két mantisszát: 
5x109--0.7x109" — 5.74109 


Az eredmény most olyan, hogy módosítás nélkül megfelel a normál alak köve- 
telményeinek. 

Hogyan lehet a fenti elgondolásokat a mikroprocesszor belsejében megvalósí- 
tani? ; 


Minthogy a processzor csak bináris számokat tud kezelni, először azt gondol- 
juk végig, hogy a fenti műveleti szabályok érvényben maradnak-e bináris 
számok esetében is? $ 

A számrendszer alapja tehát 2. Mielőtt a lebegőpontos számábrázolásba bele- 
mélyednénk, el kell döntenünk, hogy mekkora számtartományt akarunk átfogni 
és milyen pontossággal akarjuk az egyes számokat ábrázolni. A fentiek alapján 
világos, hogy az ábrázolható számtartomány nagyságát a normál alakban 
szereplő kitevő, a maximálisan tárolható számjegyek számát, azaz a pontossá- 
got pedig a mantissza határozza meg. (A decimális számok lebegőpontos 
ábrázolásából adódó pontossági kérdésekre még vissza fogunk térni.) 

Egy bináris szám normál alakja tehát a következő lehet: 


TÓJT TOT 202 vagy— T.OTTTOTA2 


decimálisan: 


14219 — 262 144 
FOR2T — 0 
412" — 65536 
414215 — 32768 
FID" — 16384 


104275 — 0 
127? — 4096 
380 928 


Nézzünk egy másik, valódi tizedespontot tartalmazó számot is: 
1.01142" 


12 —1 
102 !-0 
1152 ? — 0.25 
tF1x2 " — 0.125 

— 1.375 


Ha az ábrázolandó szám kisebb mint 1, akkor a normál alakban szereplő kitevő 
kisebb mint 0. A belső lebegőpontos ábrázolásban tehát a gépnek negatív 
kitevőt is kell tudnia értelmezni. A negatív számok tárolásának egyik módja a 
kettes komplemenssel történő tárolás. Ha a kitevő tárolására 1 byte-ot szánunk, 
akkor az ábrázolható kitevők értéke — 128 és 127 közé eshet. Mekkora számtar- 
tományt jelent ez decimálisan? Az átszámítás eredménye: 


277 — 1.74109 
2 "8 — 3.910 "9 


Ebből az következik, hogy 1 byte-os kitevő esetén olyan decimális számok 
ábrázolhatók, amelyekben a tizedespont előtt 38, a tizedespont után pedig 39 
számjegy áll. A kapott számtartományba minden, a gyakorlatban előforduló 
szám belefér. 

A Commodore 64-es a belső lebegőpontos számok kitevőit nem kettes komple- 
"menssel ábrázolja, hanem egy ún. offsettel. Ha minden előforduló kitevőhöz 
hozzáadunk 129-et, vagy hexadecimális $81-et, az eredmény mindig pozitív 
szám lesz. : 

A következő táblázat tartalmazza az összefüggést a tárolt és a valódi kitevő 
között: 


kösd T2. esési 

Hexa ertek Kitevo Decimalis ertek 
$00 Lasd a szoveget [d] 
$01 szeb S.7410E—-40 
$02 2127 5.9419E-—39 
s$s05 si2ó 1.2$610E—538 
$7F eg 9.25 
$£80 sat 0.5 
$81 o 1 
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$82 1 2 


$s83 2 4 
$FE 125 4.3£10E-37 
$FF 126 8.5$19E4S7 


Ha az ábrázolt számban a kitevő értéke nulla, akkor maga a szám is nulla. 
A kitevő ábrázolási módjának kiválasztása után nem kevésbé fontos a mantisz- 
sza ábrázolási módja, hiszen ezen múlik az ábrázolható számok pontossága. 
A Commodore 64-es a mantisszát 4 byte-on tárolja, ami azt jelenti, hogy egy 
szám mantisszája maximáhksan 32 bináris jegyet tartalmazhat. Hány decimális 
jegynek felel ez meg? 

Ennek eldöntéséhez hasonlítsuk össze két olyan bináris szám decimális érté- 
két, amelyek binárisan csak az utolsó helyiértékeiken különböznek: 


FITT IV T11T4- TAT AT T1d-d 85 
b; £fet tén ety az dög bán Ház ún úg áz Vb Úb aa fán ba lét hí In án kg px É0 ib 3 6 enn) 


A fenti két szám tehát 2 "! értékkel tér el egymástól. Ez decimálisan kb. a 


4.6566129410- 9 vagy 
0.465661294 10 ? 


értéknek felel meg. 

Az eredeti két szám értéke közel 2, és egymástól a tizedik decimális helyiérték- 
ben kb. 5-tel különböznek. Ebből arra következtethetünk, hogy a 4 byte-on tárolt 
mantisszával kb. 9 jegy pontosságot érünk el. A 9 jegy pontosság relatív 
pontosság, amely független a kitevőtől. Ha a decimális számot normál alakra 
hozzuk, azaz a tizedespont előtt egy 1 és 9 közé eső szám áll, akkor a lebegő- 
pontos bináris számábrázolással meg tudjuk különböztetni egymástól azokat 
a számokat is, amelyek decimálisan csak a kilencedik helyen különböznek. 
Most már rendelkezünk azzal a lehetőséggel, hogy egy — 128 és 126 közé eső 
kitevő és egy 4 byte-on ábrázolt mantissza segítségével a decimális számokat 
9 jegy pontossággal ábrázoljuk. Hiányzik azonban még a számok előjele. Egy 
kis ötlettel megoldjuk az előjel ábrázolását anélkül, hogy közben a pontosság- 
ból vesztenénk. 

A számok normál alakjában a mantissza mindig 1 és a számrendszer alapjának 
értéke közé esik. Kettes számrendszerben 1 és 2 közé, azaz minden szám 
belső ábrázolásában a mantissza első jegye 1. Minthogy ezt az 1-est teljesen 
fölösleges tárolni. megállapodás szerint az első bitet az előjel tárolására fogjuk 
használni. 

Ha az első bit értéke 0, akkor a szám pozitívnak, ha 1, akkor a szám negatívnak 
tekinthető. 

Most már minden információ rendelkezésünkre áll ahhoz, hogy egy tetszőleges 
számot átírjunk lebegőpontos alakra, azaz pontosan úgy, ahogyan azt a gép 
tároija. Pl.: 


1 — 132 
— 1.060 00000000 0000 0000 0000 0000 000042" 
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Ha figyelembe vesszük az előjel bit jelentését, és a táblázat alapján meghatá- 
rozzuk a kitevőt, a következő eredményre jutunk: 


0000 0000 0000 0000 0000 0000 0000 0000 1000 0001 


A gépben a tárolási sorrend fordított: először a kitevő byte-ja, majd a mantissza 
4 byte-ja következik: 


1000 0001 0000 0000 0000 0000 0000 0000 0000 0000 


Ugyanezt a számot hexadecimálisan felírva sokkal áttekinthetőbb képet ka- 
punk: 


8100 00 00 00 


Az ábrázolt szám tehát a lebegőpontos 1-es. Nézzük meg, hogyan tárolódik a 
gépben a 10? Írjuk fel a 10 kettes számrendszerbeli normál alakját: 


10 — 842 

— 2742 

— 1.2940222t 142" 
1.0142 


A belső ábrázolás: 


1000 0100 0010 0000 0000 0000 0000 0000 0000 0000. azaz 
84 20 00 00 00 


Nézzünk példát egy negatív szám belső ábrázolására: 
—$865 a —(41 1--0O.6) 

—(212129 

- —(122210£27- 124142) 

—- —1.01142? 


! 


azaz lebegőpontosan: á 
1000 0011 1011 0000 0000 0000 0000 0000 0000 0000 azaz 
83 BO 00 00 00 


A negatív számokat arról lehet könnyen felismerni, hogy a mantissza első 
byte-jának értéke nagyobb vagy egyenlő mint $80. 
A fentiek alapján bármely lebegőpontosan tárolt számot átírhatunk decimális 
alakra. Jelöljük az egymást követő byte-okat az alábbiak szerint (EX jelöli a 
kitevő byte-ját az ,exponens" szó rövidítéseként): 


EX M1 M2 M3 M4 
83 BO 00 00 00 
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A tárolt szám decimális értékét az alábbi képlettel határozhatjuk meg: 


X — (— SGN(M1 AND 128) 52-- 1)42 1 (EX— 129) (1-7 ((M1 AND 127) -- 

-t (M2-- (M3-1 M4/256)/256)/256)/128) 
A képlet alapján világos, hogy az előjelet a mantissza legfelső byte-jából (M1) 
az első bit értéke alapján határoztuk meg, a kitevő pontos értékének kiszámítá- 
sánál pedig figyelembe vettük a 129-es értékkel való eltolást. A mantissza 
kiszámításánál minden byte értéke súlyozottan szerepel, sorrendjének megfe- 
lelően. Az egymást követő byie-ok közül a felső byte tartalma mindig 256-szoro- 
sa az őt közvetlenül követő byte tartalmának. 
A képlet helyességét érdemes egyszer lépésenként ellenőrizni: 


X — (— SGN(176 AND 128)52-- 1)2 1 (131— 129): 
(1-4 ((176 AND 127) 4- (0-4- (0 4 0/256)/256)/256)/128) 


A számítás eredménye: — 5.5. A korábbi példa alapján megadott eredeti deci- 
mális értéket tehát visszakaptuk. 

A számítások, illetve átalakítások közben mind ez ideig semmilyen nehézségbe 
nem ütköztünk. Próbáljuk azonban a 0.4 decimális számot a megfelelő lebegő- 
pontos alakra átírni: 


kásás TS. 464646 

0.4 2 kítevoje 
0.25 2 
2 zz za za 

0.15 

0.125 ső 
Ezzen 

0.025 

0.015625 -6 
zzz II ZT EZ EZ ESB Z3 sz 

0.0095375 

0.0078125 7 
S IZ IZ EZ EZ EZI EZ ED ZD SZ 

0.0915625 

0. 09097765625 -108 
EZ EZ IZ ZTE DJZZ ZIZ HEZ EZT IZE ZT EZ 

2. 0005859575 

9. 009048828125 eft 
BZ UN KN MI ID EC EZ 20 EZ EZ EZ Em Ez az 

9. 909009765625 

0.000061053515625 -14 
measzzzzezazz zzz zs ez zzz mm sz 

0. 000905662109275 stb. 


A számolást tetszőlegesen sokáig folytathatjuk, az átalakítás sosem fog véget 
érni. A kapott bináris számban a számjegyek periodikusan ism-tlődnek: 


1.1001 1001 1001 1001 1001 1001 1001 1001 1001 ...52 ? 


A decimális 0.4 számérték nem fejezhető ki véges bináris tört alakjában. 
Az eredmény véges sok (31) bináris jeggyel, kortátozott pontossággal a követ- 
kezőképven ábrázolható: 


1.1091 1001 1001 1001 1001 1001 1001 10042 ? 13 


A nagyobb pontosság érdekében annyit tehetünk, hogy a bináris számjegyek 
egyszerű elhagyása helyett felfelé kerekítünk. 

Bináris számoknál, ha az elhagyott számjegy 1-es, akkor felfelé, egyébként 
lefelé kerekítünk. A fenti példában felfelé kell kerekítenünk, a végleges ered- 
mény tehát: i 


1.001 1001 1001 1001 1001 1001 1001 10152 ? 


A kitevő és az előjel figyelembevételével a 0.4 belső számábrázolás szerinti 
alakja: 


O11111110100110011001100 1100 1100 1100 1101 
azaz hexadecimális alakban: 
7F4C CC CC CD 


Annak, hogy bizonyos véges sok tizedesjegyet tartalmazó számokat nem tu- 
dunk átváltani véges sok számjegyet tartalmazó bináris alakra, nem az az oka, 
hogy az új számrendszer alapja 2. Ez a probléma mindig felmerül, valahány- 
szor az egyik számrendszerről át akarunk térni egy másik számrendszerre. 
Az V4 valódi tört alakja tizes számrendszerben ugyancsak végtelen tizedes tört: 


0.33333 33333 33333. . . . . 
holott ugyanennek a számnak pl. hármas alapú számrendszerbeli alakja: 


0.1 
az 133 ! értéknek megfelelően. 


Miután némileg megismerkedtünk a lebegőpontos számábrázolás elméleti 
alapjaival, gondoljuk végig, mire lehetne eddigi ismereteinket felhasználni. 
A BASIC értelmező (interpreter) jelentős részét foglalják el azok a rutinok, 
amelyek a számokat az egyik formáról a másikra alakítják át, illetve amelyek 
a lebegőpontos számokkal aritmetikai műveleteket végeznek. Hogyan tudnánk 
hasznosítani ezeket a rutinokat saját készítésű programjainkban? 

A BASIC értelmező két ún. lebegőpontos akkumulátorban (floating point accu) 
tárolja azokat a számokat, amelyeket a későbbiek során feldolgoz. Az akkumu- 
látoörok megnevezésére az FAC rövidítést használjuk. 

Az értelmező az FAC 1-et minden műveletnél, az FAC 2-t pedig csak a két 
operandussai rendelkező (pl. az összeadás) műveleteknél veszi igénybe. 
A művelet eredménye mindig az FAC 1-be kerü:. Az 1-es akkumulátort gyakran 
röviden FAC-vel, a 2-es akkumulátort pedig ARG (argumentum) -vel jelöljük. Az 
akkumulátorokban a számokat az értelmező nem 5 byte-on tárolja, ugyanis az 
eiőjei tárolására külön lefoglal egy byte-ot. 

Söt a müveletek elvégzése közben szükséges kerekítésekre még egy további 
byte 15 rendelkezésre átl. A lebegőpontos akkumulátorok tárcímei a nullásla- 
pon: 
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Ládd T4. adá 


FAC ARG 
Exponens $61 $69 
Mantissza 1í $62 $6A 
Mantissza 2 $6ós $6B 
Mantissza 3 $64 $6C 
Mantissza 4 s$605 $6D 
Elojel $66 $6E 
Kerekitesi byte $70 


Elojel—- 
osszehasonlito byte $6óF 


Az előjel összehasonlító byte-ot a két operandusú műveletek használják. Érté- 
ke egyező előjeleknél $00, ellentétes előjeleknél $FF. 

A BASIC értelmező egy sor rutinja szolgál a lebegőpontos számok kezelésére. 
Kezdjük az elemzést azzal a rutinnal, amely beolvas egy decimális számot és 
átalakítja lebegőpontossá. Ezt a rutint az értelmező minden numerikus adatbe- 
vitelnél meghívja. 

Mielőtt belemélyednénk a rutin működésének elemzésébe, tegyünk egy kis 
kitérőt és vizsgáljuk meg az ún. CHRGET rutint, amely beolvas egy karaktert 
a billentyűzetről, vagy a BASIC szövegből. Ez a rutin is a nulláslapon található 
és feladata a karakter beolvasásán túl annak ellenőrzése, vizsgáláta. .. 
A CHRGOT rutin az előző egy beugrási pontja, és arra szolgál, hogy az utoljára 
olvasott karaktert még egyszer betöltsük. 


94364t Pi. 969696 Lá Aj Pi. 964646 
CHRGET INC TXTPTR CHRGET INC TXTPTR 

BNE CHRGOT BNE CHRGOT 

INC TXTPTR-41 a INC TXTPTR-f1 
CHRBOT LDA TEXT CHRGOT LDA TEXT 

CMP éa" "  CMP "a" 

BC$ EXIT BCS EXIT 

CMP gt CMP gt 

BEA CHRGET BEOG" CHRGET 

SEC SEC 

SBC 4$$3O SBC 4330 

SEC SEC 

SBC $$DDO SBC 4$$3DO 
EXIT RTS EXIT RTS 


A rutin leglényegesebb tulajdonsága, hogy a RAM területén lévén, képes 
önmagát módosítani. 

A TXTPTR mutató, amely a betöltendő karakter helyét adja meg, a programban 
van elhelyezve. Ez azonnal világossá válik, ha az alábbi. assembler listát 


szemügyre vesszük: 


kásás P2. kásás 

0075 E6 7A INC 3$7A 
0075 DO 02 BNE $0079 
" 0077 E6 7B INC $7B 
0079 AD 22 02 LDA $0202 
097C C? SA CMP $$3A 
007E BO 10 BCS 3008A 
9080 CI 29 CMP 4$2O 
0082 FO EF BEON $00753 
0084 58 SEC 

eo85 Eg 530 SBC 4330 
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0087 38 SEC 
00B8BB E? DO SBC 4$DO 
OOBA 60 RTS 


Amikor meghívjuk a CHRGET rutint, először a betöltö utasítás címmezője (a 
CHRGOT címkével jeizett utasítás) megnő eggyel, majd a megnövelt cím tartal- 
mát beolvassuk. A beolvasást különböző vizsgálatok követik. A beolvasott 
karaktert először összehasonlítjuk a kettősponttal. Ha ASCII kódja nagyobb 
vagy egyenlő, mint a kettőspont ASCII kódja, akkor közvetlenül az RTS utasítás- 
ra ugrunk. Ekkor az átviteli kapcsoló (carry flag) értéke 1. Ha a beolvasott 
karakter kettőspont, akkor a zérókapcsoló értéke is 1 lesz. 

Az utasítás végét a fentiek szerint a zéró kapcsoló értéke is mutatja. Ha a 
beolvasott karakter ASCII kódja kisebb, mint a kettőspont kódja, összehasonliít- 
juk a szóköz karakterrel (kódja a decimális 32, illetve hexadecimális 20). 

Ha összehasonlítás után a Z kapcsoló értéke O, azaz a két kód egyenlő, akkor 
a rutin elejére ugrunk, azaz olvassuk a következő karaktert. Ez azt jelenti, hogy 
az értelmező olvasás közben a szóköz karaktereket átlépi. A következő két 
kivonás a beolvasott karakter kódját nem változtatja meg, feladatuk mindössze 
annyi, hogy a C kapcsoló értékét módosítsák. A C kapcsoló értéke törlődik (0 
lesz), valahányszor az olvasott karakter ASCII számjegy, azaz hexadecimális 
kódja $30 és $39 közé esik. 


Foglaljuk össze röviden még egyszer az elmondottakat: a CHRGET rutin meg- 
növeli a szövegmutatót (TXTPTR-t) és a kapott címen talált értéket betölti az 
akkumulátorba. 

Ha az olvasott érték megfelel a kettőspontnak vagy nullabyte, akkor vége a 
sornak vagy az utasításnak. Ezt a rutin azzal jelzi, hogy a Z kapcsoló értékét 
1-re állítja. Ha a beolvasott karakter számjegy, akkor a C kapcsoló értékét törli. 
Térjünk most vissza arra a rutinra, amelyet eredetileg elemezni készültünk. Ez 
a rutin a decimális számot lebegőpontos alakra hozza. Hívásakor a decimális 
szám első karakterének az akkumulátorban kell lennie és a kapcsolók értékét 
a CHRGET rutinnak megfelelően be kell állítani. A szövegmutató (TXTPTR) 
természetesen most az átalakítandó számra mutat. A következő kis program 
beolvas egy számot és átalakítja lebegőpontossá: 


943634 P3. 94944 

1001  O0SSC :":OPT P,09 
105t O353C kán 828 

1101  007A " TXTPTR - 37A 

1201 0079 CHRGOT - $79 

1303:  BCF3 ASCFLOAT z $BCFJ3 
1401 OSZC A9 4B LDA $CZAHL 
1581 OJSE AD 03 LDY $OZAHL 
1601 0340 85 7A STA TXTPTR 
1701 03542 84 7B STY TXTPTRtI 
1801 0544 29 79 00 JSR  CHRGOT 
1901 035347 209 F3 BC JSR ASCFLOAT 
2001 0O34A BD BRK 

2101 0O34B 31 2E 32 ZAHL .: ASC "1.2345" 
2201 0351 BO -:BYT 0 


Ha a programot assembláljuk és a Monitor programból 


G 033C 
16 


utasítással elindítjuk és lefuttatjuk, az 1.2345 szám lebegőpontos alakban a 
rendelkezésünkre áll. Ezt az 


M 0061 0066 


utasítással ellenőrizhetjük is, melynek hatására a következő sor jelenik meg 
a képernyőn: 


dr át at TŐ 943644 


2: 0061 Bi 9E 04 18 93 08 


Próbáljuk meg a programmal a 0.4 decimális számot konvertálni. Ehhez a 
$034B címtől kezdve el kell helyeznünk a számjegyeket és egy nullabyte-tal 
lezárni: 


964436 Té. 343643 


,M 034B 054B 
2): O34B 50 2E 34 00 


A futtatás eredménye: 


darát T2e át atát 


21 0061 7F CC CC CC CC 00 


Az előjelet a hatodik byte tartalma határozza meg, értéke pozitiv szám esetén 
nulla. 

A fenti programmal a féllogaritmikus alakban megadott decimális számokat is 
fel tudjuk dolgozni, mint pl. — 1.4E— 7 vagy 1E12. Vegyünk példaként most egy 
negatív, féllogaritmikus alakban megadott számot, pl. a — 1E8-at. A program 
futtatásának eredménye: 


944644 Te. 944646 
)J1 9961 9B BE BC 28 00 FF 


Az utolsó byte tartalma ($FF) a negatív előjelre utal. 

Térjünk vissza egy pillanatra a 0.4 átalakításának eredményéhez. Ha az ered- 
ményt alaposan megnézzük, azt tapasztaljuk, hogy az nem egyezik meg a kézi 
számítás eredményével, annál az utolsó helyiértéken eggyel kisebb. Az eltérés 
oka, hogy az átalakító rutin nem veszi figyelembe a kerekítésből adódó jegyet. 
Futtassuk le még egyszer a programot a 0.4 értékkel és ellenőrizzük a $70-es 
címen a kerekítő byte tartalmát. Az ott található $80 érték arra utal, hogy a 
kerekítésnél átvitel keletkezett, tehát a lebegőpontos számot az utolsó helyiér- 
téken meg kell növelni eggyel. Egészítsük ki az előző programot az alábbiak 
szerint, így az a továbbiakban automatikusan elvégzi a kerekítést. 


944414 P4. 986 4646t 

1001  OS5ZC :OPT P,00 
1051 e O5S3C házi B28 
11081  007A TXTPTR sz $7A 
1201 00979 CHRGOT e $79 
15381  BCF5 ASCFLOAT z $BCF5 
1401  BCIB ROUND - $BC1IB 
1591  OSSC A? 4E LDA  HCZAHL 
1601  OZZ3E AD 053 LDY  $OZAHL 
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1701 0340 85 7A STA TXTPTR 


1891 090542 84 7B STV TXTPIREtIi 

19901 035344 22 79 09 JSR CHRGOT 

2901 9347 29 FS BC ISR . ASCFLOAT 
" 2101 OG34A 29 1B BC JS8R ROUND 

2201  O34D 00 BRK 

25391 OSM4E 39 2E 54 ZAHL . ABC "8.4" 

2491 0551 00 :BYT 0 


Az FAC tartalma az új program futtatása után már megfelel a várakozásnak: 
964444 T9. 963616 


2: 0961 7F CC CC CC CD 00 


A kerekítés után a kerekítő byte tartalma törlődik, erről az Olvasó könnyen 
meggyőződhet. 

Miután megértettük a számjegyfüzérek lebegőpontos számmá alakításának 
módját, nézzük meg, hogyan lehet az eljárást megfordítani, azaz lebegőpontos 
számot decimális számjegyekké alakítani. A megoldás nagyon egyszerű, mint- 
hogy a feladatot elvégző rutin készen van. A rutin neve FLOATASC és kezdőcí- 
me $BDDD. A rutin az FAC-ben található lebegőpontos számnak megfelelő 
számjegyfüzért a $0100-as címtől adja vissza. Irjuk be az FAC-be a következőt: 


446 at T10. 443444 
2: 9861 908 BF 99 09 89 89 


A rutin hívása után írassuk ki a képernyőre a $0100-as cím tartalmát: 
dát at T11. hárdd 


2M 0109 0107 
d): B1Og 2D 33 J6 SJ6 30 538 00 -56608 


Az FAC tartalma tehát a decimális — 36608. 

A rutin hívása után az akkumulátor és az Y regiszter mindig a füzér címét 
tartalmazza. Példánkban az A — OésazY — 1 (alsó/ffelső byte). A kapott füzért 
kiírathatjuk a cím alapján a képernyőre. A $AB1E címen kezdődő STROUT rutin 
pontosan ezt a célt szolgálja. 

Mielőtt rátérnénk a lebegőpontos műveleteket végző rutinok ismertetésére, 
ismerkedjünk meg azokkal a rutinokkal, amelyek az egész típusú számok 
lebegőpontossá alakítását végzik el. Ezekre a rutinokra igen nagy szükség van, 
hiszen nagyon gyakran előfordul, hogy a lebegőpontos művelet bemenő ope- 
randusa egész típusú, illetve az, hogy a művelet eredményét ismét egész 
típusú számként kell visszaadni. 
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1.2 Átalakítás lebegőpontos formátumra 


Egy byte-os előjeles egész szám átalakítása 

Az alábbi rutin egy egybyte-os, előjeles, — 128 és 127 közé eső egész számot 
alakít lebegőpontos formátumra. 

Az egész számot az akkumulátorban kell a rutinnak átadni: 


964646 PS. me 


LDA $BYTE 
J8R $BCSC 


A $80, a $FF, illetve a $7F hexadecimális értékeknek a rutin rendre a — 128, — 1, 
ill. 127 értékeket felelteti meg. 


Egybyte-os előjel nélküli egész szám átalakítása 


Az alábbi rutin figyelmen kívül hagyja az előjelet: 


ta. Pé. 9494 4t 


LDA $BYTE 
JBR $BJAZ 


Ebben az esetben a $00 értéknek a nulla, a $80-nak a 128, a $FF-nek a 255 felel 
meg. 


Kétbyte-os előjeles egész szám átalakítása 


Ládd P7. eme 


LDY $LOW 
LDA $HIGH 
JSR $B595 


Amint látjuk, a rutin hívása előtt a szám alsó byte-ját az Y regiszterbe, felső 
byte-ját pedig az akkumulátorba kell tölteni. 
Az alábbi táblázat szemlélteti a megfeleltetést: 


344646 T12. 363636 
A he Lebegopontos ertek 
00 09 a 
00 01 1 
09 FF 255 
01 00 256 
7F FF 52767 
Bo -52768 
FF FF szé! 


Kétbyte-os előjel nélküli egész szám átalakítása 

A következő rutin figyelmen kívül hagyja az előjelet: 
9644 at PB. 94364 
LDY $LOW 
LDA $HIGH 


STY $63 
STA $£62 
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LDX 4552 
SEC 
JSR $BC49 


Mivel az előjel nem foglal el helyet, az ábrázolható számtartomány ebben az 
esetben 0-tól 65535-ig terjed: 


963694 T13. 46 dt 
A Y Lebegopontoz ertek 
[dd 00 o 
00 01 1 
ao FF 255 
21 00 256 
7F FF 32767 
ag 00 52768 
FF FF 5535 


Hárombyte-os előjeles egész szám átalakítása 


Annak ellenére, hogy a gyakorlatban ritkán dolgozunk hárombyte-os egész 
számokkal, az értelmező tartalmazza a konvertálásukhoz szükséges rutint: 
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LDA 
LDX 
LDY 
STY 
STX 
STA 
LDA 
EOR 
ASL 
LDA 
sSTA 
LDX 
J38R 


kösösi 
h 


20 
99 
99 
7F 
89 
FF 


P9. 94469 
$LOW 
$MID 
$HIGH 
$62 
$63 
$64 
$62 
H$FF 
A 
40 
s65 
4$s98 
$BC4F 


megfeleltetés táblázata: 


T14. klsösi 


x A Lebegopontos ertek 
090 
00 
FF 
FF 
20 
FF 


00 
FF 
FF 
FF 
90 
FF 


[/] 

255 
655535 
8588607 
-85388608 
szék 


A hárombyte-os egész számok értéke a — 8388608-tól 8388607-ig terjedő tarto- 


mányba eshet. 


A hárombyte-os előjel nélküli egész szám átalakítása 


A 24 bites egészek konvertálására szolgáló rutin: 
20 


keösösi Pio. 44-64 
LDA $LOW 
LDX $MID 
LDY $HIGH 
J8R $AFB7 
J8R $AF7E 
A lefedett számtartomány O-tól 27— 1 — 16777215-ig 
96946 T15. 36at at 
té K A Lebegopontos ertek 
00 9 09 a 
00 02 FF 255 
00 FF FF 655353 
7F FF FF 85388607 
80 00 99 8388608 
FF FF FF 16277215 


Négybyte-os előjeles egész számok átalakítása 


A következő rutin 32 bites egész számokat alakít lebegőpontossá. A négy 
byte-ot a FAC-ben a $62 címtől kezdve keresi, nevezetesen a legfelső byte-ot 
a $62-es, a legalsó byte-ot pedig a $65-ös címen. 


943tat 


LDA 
EOR 
ASL 
LDA 
LDX 
JSR 


36363 
$62 


09 
09 
09 
00 
7F 
89 
FF 


$62 


4$FF 


A 
Lá 


4$AD 


Pi11. 


$BC4F 


A megfeleltetés táblázata 
T16. 


65 


00 
99 
90 
FF 
FF 
90 
FF 


65 


09 
FF 
FF 
FF 
FF 
00 
FF 


94.94-ét 


363tat 
Lebegopontos ertek 


o 

255 

63555 

16777215 

2147485647 (2.14748365E109) 
—-2147485648  (-—-2.147485365E14209) 


sat 


Négybyte-os előjel nélküli egész szám átalakítása 


Az előzőhöz hasonlóan ez a rutin is az FAC-ben keresi az átalakítandó számot. 


A lefedett számtartomány 0-tól 22?— 1 — 4294967295-ig terjed 


köss 


SEC 
LDA 
LDX 
JSR 


40 
$$sAB 


$BC4F 


Pi2. 


ksásd 


A megfeleltetés táblázata 


3634at 
$62 


65 


Ta: zs 
64 


[d] 
09 
FF 
FF 
FF 
09 
FF 


3634 
Lebegopontos ertek 


o 

255 
é5s555 
16777215 


2147485647 (2.14748365E14109) 
2147485648 (2.14748565Et4107) 
4294967295 (4. 29496729E4109) 
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A bemutatott rutinokra minden olyan gépi kódú programban szükség van, 
amelyben egész számokkal lebegőpontos aritmetikai műveleteket kell elvé- 
gezni. 


1.3 ÁTALAKÍTÁS EGÉSZ TÍPUSÚ (INTEGER) FORMÁTUMRA 


A lebegőpontos számok egész típusúvá alakításához egyetlen rutin áll rendel- 
kezésünkre. Az átalakítás eredménye mindig egy 4 byte-os előjeles egész 
szám. A rutin hívása előtt a lebegőpontos számot az FAC-be kell tölteni. 

A rutin kezdőcíme $BC9B, hívása: 


JSR $BC9B 


Mivel az átalakítás eredménye csak 27-nél kisebb szám lehet, a rutin megvizs- 
gálja, hogy a lebegőpontos szám kitevőrésze kisebb-e, mint $A0. 

Átalakítás után az egész szám a $62-es címtől (legfelső byte, előjellel) a $65-ös 
byte-ig (legalsó byte) található. 

Nézzünk erre egy példát: 

Legyen az FAC tartalma 10. 


96963t T18. 9 
EX Mi M2 M3 M4 SBN 
): 0961 B4 AZ 29 09 00 08 
A JSR $BC9B utasítás végrehajtása után az eredmény: 


6942 T19. 36a43e 
21 0961 84 99 00 99 BA 0090 


Ha az FAC tartalma nem egész szám, az átalakítás után a szám tizedesvessző 
utáni részét az értelmező levágja, az INT függvényhez hasonlóan. 


Ha pl. az FAC tartalma 321.25 


36963E T20. 3686 4E 
EX M1 M2 MS M4 SBN 
2: 9961 89 AZ AZ BA 90 009 
az eredmény 
9494-9t TEás 34 at-3t 


2: DO6i1 B? 09 00 01 41 00 


azaz $41-71-$100 — 65-4-256 — 321. Negatív, tizedesrészt tartalmazó egész 
szám esetében a számhoz legközelebb eső, nála nem nagyobb negatív egész 
számot kapjuk, pl. — 0.5-ből —1 lesz. 
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keűsösé T22. kései 


EX Mi M2. M3 M4 SGN 
2: 0961 BY BO 00 00 BB FF 


Az átalakítás eredménye: 
Jeget T2Se 941694 


J1 0051 BB FF FF FF FF FF 


azaz —1. 
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1.4 A BASIC ÉRTELMEZŐ (INTERPRETER) ARITMETIKAI 
RUTINJAI 


A számok beolvasásához, kiírásához és átalakításához szükséges rutinok tár- 
gyalása után rátérünk a műveletvégző rutinok ismertetésére. 

Az értelmező tartalmazza az öt alapművelet — összeadás, kivonás, szorzás, 
osztás és hatványozás - elvégzéséhez szükséges rutinokat. 

A műveletek elvégzése előtt az egyik operandust az FAC-be, a másikat az 
ARG-ba kell betölteni. A rutinhívás után az eredmény mindig az FAC-ben 
található. A rutinok címei: 


948434 T24. 969446 

öSSZEADAS FAC sz ARG 4 FAC $B86A 
KIVONAS FAC sz ARG - FAC $B853 
SZORZAS FAC :z ARG § FAC $BAZB 
OSZTAS FAC isz ARG / FAC $BB12 
HATVANYOZAS FAC 15 ARG 7" FAC $BF7E 


Hívás előtt az akkumulátor tartalma az FAC ($61) kitevője. Ha a kitevő nulla, 
megegyezés szerint az FAC értéke is nulla. A különleges esetek kezelése az 
alábbiak szerint történik: ARG 4 0 — ARG; ARG:O0 — 0; ARG/O: a DIVISION BY 
ZERO hibaüzenetet eredményezi; végül ARG10 — 1. Ha olyan rutint hívunk, 
amely az FAC és az ARG tartalmát meghatározza, a kitevők értékét automatiku- 
san megkapjuk az akkumulátorban. 

Vizsgáljuk meg a 7:13 — 91 művelet elvégzését: 


96963 T25. há dd 
7 z B8B3 ED 00 00 00 00 
13 5 B4 DO 00 00 00 00 


A fenti értékeket betöltjük a lebegőpontos akkumulátorokba, az FAC kitevőjét 
az akkumulátorba, majd meghívjuk a rutint: 
963636 T26. 343636 


2: 0061 BZ Eg 09 00 99 00 
2: 0969 B4 DO 00 09 09 00 


2, 10990 AS 61 LDA $61 
2, 1902 20 2B Ba JSR $BAZB 
2, 1005 29 BRK 

:G 10900 

Bit 


PC IRG SR AC XR.YR SP NV-BDIZC 
24; 1006 EAZ31 AG 87 B6 00 FB 101090000 


): 0061 87 B6 00 00 00 00 
Váltsuk át az eredményt decimális számmá: 


1.011011042" — 1011011 
— 64-4-1648-421-1 — 91 
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Most végezzük el a 37 — 2187 hatványozást: 


369634 2 perét 36 949t 


3 sz a2 CO 090 00 07 00 
7 sz 8E Eg 00 00 00 00 


Az értékek átadása után meghívjuk a hatványozó rutint: 


36363t T28. dedte 


2: 09061 83 EZ 00 09 00 00 
21 9969 82 CA BB 00 00 00 


24 1000 A5 61 LDA $61 
2, 1002 20 7B BF JSR $BF7B 
2, 1005 00 BRK 

26 1000 

Bit 


PC IROA SR AC XR YR SP NV-BDIZC 
2; 1006 EAJ1.22 00 61 00 FB 10910020000 


2: 0061 BC BB BO 09 02 09 00 


A kapott eredményt alakítsuk ismét decimális számmá: 


1.000 1000 1011 0000 0000 0000 0000 00102" — 
1000 1000 1011.0000 0000 0000 0000 0010 


SSA ET 222 

— 20481 12848-4-2-41--1.9410 " 

- 2187.0000019 
Az utolsó helyiértéken eltérés mutatkozik a valódi eredménytől. Azt, hogy a 
bináris szám decimálissá alakítása csak 9 jegyre pontos, a következőképpen 
mutathatjuk meg: a 

PRINT 317 
utasítás eredménye 2187. Mégis a 

PRINT 317 —2187 
utasítás végrehajtásakor az 

1.90734863E — 06 
eredményt kapjuk. A hatványozást az értelmező a következők szerint végzi el: 


At B EXP (B:LOG (A)) 


A fenti eltérés érthetővé válik, ha figyelembe vesszük, hogy a EXPésaLOG 
függvények közelítő értékekkel dolgoznak. A hatványozás az egyik leglassúbb 
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aritmetikai művelet — kb. 50 ms — ami szintén érthető, hiszen végrehajtása 

közben az értelmező két függvényt is meghív. Célszerű tehát a csak egész 

kitevőt tartalmazó hatványműveleteket a szorzásra visszavezetni egyrészt a 

pontosság, másrészt a végrehajtási sebesség érdekében. 

Érdemes"-a frogramba 3 1 2 helyett 3-3-at írni. 

A szorzás ez esetben 20-szor gyorsabb a hatványozásnál, A műveletek végre- 

hajtási idejéről a későbbiekben közlünk egy táblázatot. 

Eddigi ismereteinket csak akkor tudjuk valóban hasznosítani, ha tisztában 

vagyunk azzal, hogy a BASIC értelmező hogyan kezeli a változókat. A nullásla- 
pon találhatóak azok a mutatók, amelyek a BASIC program, az egyszerű- és 

tömbváltozók és a füzérek tárbeli helyét meghatározzák. A 128-as üzemmód 

megfelelő címeit a függelékbeli táblázat tartalmazza. 

A gép bekapcsolásakor a BASIC kezdete a $801 —.2049-es, vége pedig a 

$A000 — 40960-as cím. Ha leírunk egy programsort, pl. a következőt: 


4O-A 7 Védi sti k ra EHET; rev zet ű ae? TA át sal azé ös 
3) ál) Be e éő ese Tag SÖÉLE PE ÜTSZ EV ÖL FTTÉLE 


a tár SKESZÉBR A $0801-es SegÖt: AES VEN BA e ES 


A következő. sor címe KEGY MEA e s. 
Sorszám 

A programsor 

0) 


A tárba monitorprogrammal közvetlenül bepillanthatunk: 


344tat T29a 968636 


2M 0800 DBOF 
21: 0800 00 097 08 ORA 00 41 BZ 531 
2: OSBO8 09 00 00 


A programmutatók értéke: 
hxK T30. 36xa 


2M BDOZB 0037 
2): DOZB 01 OB OB 08 DB OB OB OB 
2: OBOB 00 AZ 00 00 00 AD" 


Értelmezzük a fentieket! A ($2B/$2C) címek tartalma a $801-es cím, ahol a 
következő programsor címe található alsó, ill. felső byte-ra bontva, azaz $0809. 
Ezt követi a sorszám -alsó és felső byte-ja: INT 10. A sorszám után a 
program szövege következik: $41 — "A", a $B2 az " —" jel értelmező kódja, és 
az "1" ASCII kódja azaz $31. A sor végét a nulla by jelzi. 

A program a tárban hasonló szerkezetben folytatódna. Mivel a fenti program 
egyetlen sorból áll, a következő programsor címe $0000, ami MEGEGYEZÉS . 
szerint arra utal, hogy a programnak vége. 

A következő cím a $080B a ($2D/$2E) címeken található, és a program végére, 
ill. egyben az egyszerű változók kezdetére mutat. Mivel eddig egyetlen változó 
sem kapott még értéket, az egyszerű változók és a tömbváltozók végé azonos 
tárcímen van, mutatójuk tehát azonos értékű. Ha lefuttatjuk a programot a RUN 
paranccsal, az A változó értéket kap. 
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36463 T31. 343 at 


-M 0800 0810 

2): OBOO 90 09 08 VA 00 41 B2 531 
2: 0809 09 09 09 41 99 B1 00 008 
2: OB1ID 00 00 


2M DOZB 0037 
2): DOZB 01 08 BB 08 12 08 12 08 
2: 003I 99 AV 00 00 00 AB 


A változókezdet ($2D/$2E) most is $080B, a változóterület vége azonban 
($2F/$30) $0812. A változóterület hossza: $0812— $080B — $0007 — 7 byte, és 
tartama a következő: 


34342t TS2. ; kösösi 


2: OBOR 41 00 81 00 00 00 00 


Minden változó tárolása 7 byte-ot vesz igénybe. 

Ebből az első byte-on a változó neve található, esetünkben $41 $00 — A. 
Mivel az azonosító egy betűből áll, a másik betű helyén egy nulla byte található. 
Az azonosító után helyezkedik el 5 byte-on a változó lebegőpontos formában 
tárolt számértéke. 

A szám előjelét a mantissza legfelső bitje határozza meg. A 81 00 0000 00 
megfelel az 1-esnek. 

Vizsgáljuk meg, hogy hogyan módosul a tár tartalma, ha az A változó egész 
típusú, azaz ha a neve mögé 96-jelet Írunk: 7 


keásési TSSs 343696 
10 A/-51 


27M BOZ2B 0037 
21 O0ZB 01 08 OC 08 13 OB 13 08 
2: 0033 20 AZ 04 DX 00 AB 


:M 0800 0810 
Xs: 9809 09 0A 08 A 09 41 25 B2 
): 0898 31 99 09 99 C1 BO 909 91 
3): 0810 09 29 00 
A program egy byte-tal, azaz egy jellel hosszabb lett. Hogyan módosult a 
változó bejegyzése? A bejegyzés továbbra is hét byte hosszú 


Felismerhető az A90 azonosító? 

Ha a $C1 $80 hexadecimális számok bítmintáját a $41 500 számok bitmintájával 
összehasonlítjuk, azt látjuk, hogy mindkét byte legfelső bitje 1-re változott. Ez 
jelzi azt a tényt, hogy egész típusú változókról van szó. A következő két byte 
tartalma a 16 bites egész számok, értéke $0001. A következő három byte egész 
típusú változó tárolása esetén kihasználatlan. Azzal, hogy valós változó helyett 
egész típusú változóval dolgozunk, nem tudunk tárterületet megtakarítani. 
A program végrehaitási sebessége sem csökken, mivei minden művelet elvég- 
zése előtt az értelmező az operandusokat lebegőponiossá alakitja, a végrehaj- 
tás több időt vesz igénybe, mintha valós típusú változókkal dolgoznánk. 
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28 


$28/$2C 


$ 2D/ $2E 


$ 2F/ $30 


$31/ $32 


$ 33/ $34 


$ 37/ $38 


- BASIC - Start 
Programvég / Változók kezdete 
Változók neve / Tömbök kezdete 
Tömbök 
Tömbök vége 
Füzérek kezdete 
Füzérek vége / BASIC-RAM-vége 


A Commodore 34-es tárfelosztász 


Milyen módon tárolja az értelmező a füzéreket? 
Próbáljuk ezt is felderíteni egy programsor segítségével: 


10 A$ — "STRING" 


Futtassuk le ezt a programot és vizsgáljuk meg a monitorprogrammal a tár 
tartalmát. 


36 det T34. 463624 


2M BOOZB 0037 
2: VOZB 01 OB 15 08 1A 08 1A 08 
2: 00IS 00 AZ 00 00 00 AD 


2M 0800 0818 
21: 0800 OB i1 OB BA 00 41 24 B2 
2: OBOB 22 53 54 52 49 4E 47 22 
21: DBS10 00 090 00 41 88 06 07 08 
2: OB1B 00 00 


A változóterület most is a $8013-as címen kezdődik és tartalma a következő: 
34949 T35. 943434 


2: O8ÍS 41 80 06 09 08 00 00 


Az első két byte tartalma most is a változó azonosítója. A változó típusára 
(füzér) az értelmező azzal utal, hogy az azonosító második karakterének legfel- 
ső bitjét 1-re állítja. Az A betű hexadecimális megfelelője, a $41 és $00, füzér- 
változó esetén $41 $80-ra módosul. 

Az azonosító két byte-ja után következő három byte tartalmát az alábbiak 
szerint értelmezhetjük: az első byte ($06) a füzérváltozó hossza, az ezt követke- 
ző két byte pedig azt a címet tartalmazza, ahol a tényleges füzér a tárban 
kezdődik, esetünkben a $0809-es. 

Figyeljük meg, hogy ez a cím a programszöveg belsejében közvetlenül az 
idézőjel utáni byte címe. A valódi füzérterület tehát még üres, és mindaddig az 
is marad, amíg a füzért meg nem változtatjuk, azaz nem végzünk az A$ 
változóval valamilyen műveletet. Pl.: 


10 A$ — "STRING" 
20 A$ — LEFTS$ (A$,3) 


Ládd TI6. 343636 


2M OOZB 0257 
2: OOZB 01 08 22 08 29 08 29 08 
2: 0033 FD 9F 090 AN 00 PB. 


2M OBOO 0828 

2: 09800 00 11 08 0A 00 41 24 B2 
21 BOB 22 S3 54 52 49 4E 47 22 
21 0810 00 20 08 14 00 41 24 B2 
2: 0818 CB 2B 41 24 2C SS 29 00 
2: 0829 00 00 41 80 03 FD 9F 00 


x: OBZB 00 
A változóterület kezdete a $0822-es cím 
963696 TSZ 3E3EAE 


g: 9822 41 89 B3 FD -9F DE 09 


A változó neve után ismét a hossza következik, esetünkben 3, majd a füzér 
kezdőcíme: $9FFD, ami egyben a füzérterület alsó határa is. Ha betekintünk 
erre a tárterületre, azt látjuk, hogy tartalma valóban "STR". 


kesdsd TS8. 36 dédt 


21: 9FFD SZ 54 52 


Hogyan kezeli az operációs rendszer a tömbváltozókat? Ennek felderítéséhez 
töröljük a régi programot, és írjunk helyette újat: 


10 DIM A(500) 


Vizsgáljuk meg a tár tartalmát: 


(d64tdt T39. 964e 


2M BDOZB 0057 
2): BOZB 01 OB 109 08 19 08 EG 11 
2: 00II 00 AG 00 09 09 AD 


Mivel a programban egyszerű változót nem használtunk, a változóterület üres, 
kezdő- és végcíme azonos: $0810. 

Ez a cím egyben a tömbváltozók kezdete. 

A tömbváltozók által elfoglalt terület mérete jelenleg: $11E£0— $0810 — $09DO, 
azaz 2512 byte, a terület végcíme ugyanis $11E0. 

Vizsgáljuk meg közelebbről ennek a területnek a tartalmát: 


943496 T40. 9494 46 


2M 2810 0820 

2: 0819 41 00 DO 09 01 01 F5 00 
d): 0818 20 090 00 09 08 00 00 00 
21 9829 00 99 09 09 09 00 00 00 


Az első két byte tartalma most is a változó azonosítóját tartalmazza (A). A kö- 
vetkező két byte tartalma megadja a tömbváltozó által elfoglalt terület méretét 
($09D0), amint fent kiszámoltunk. Az ezt követő 1-es jelzi, hogy egyméretű, azaz 
egyindexes tömb számára foglaltunk helyet. Végül az utolsó két bvte tartalma 
a tömb elemeinek száma: $01F5 — 501. 

A változó adatainak bejegyzése után kezdődnek az egyes elemek sorban, 
amelyek értéke a DIM utasítás végrehajtása után 0. Ha végrehajtjuk az 
A(0) — 10: A(1) — 11 parancsokat, a tár tartaima megváltozik: 


em T41. 44s 


-m 0810 0820 

2: DBIG 41 BO DO 09 Bi Bi FS 84 
d): 0818 20 B0 00 00 84 39 00 002 
2: DpAa20 02 29 09 08? 09 00 99 00 


B4 29 90 00 00 7-2 10; 84 33 00 07 00 — 1i 


Hogyan tárolódnak a többindexes tömbök? 
Töröljük a programot és hajtsuk végre a 
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DIM B(t1, 2. 3) 

parancsot. 

A dimenzionált tömb bejegyzése a $0803-as cimen kezdődik: 
ha té T42. Rég 


?M O002B 0057 


2: OOZB 01 OB 33 08 03 08 B6 08 
am 7 00 AG 00 00 00 AD 
,M OBOZ DH1. 
: DBOZ 42 OO 83 VO 25 402 D4 


: OROR I 90 02 00 090 40 00 
: BIZ 04 40 00 00 VA VGA 00 4 


A tömb azonosítójának (B) kódját könnyen felismerhetjük: $ 42. A tömb hossza 
ez esetben $0083 — 131 byte. A következő byte tartalma (3) az indexek számát 
mutatja. Végül három byte-ot foglalnak el az indexek felső határai fórdíitott 
sorrendben: $0004, $0003, ill. $0002, amelyek rendre megfelelnek a 3, 2 és 1 
értékeknek. 
A tömb elemeinek sorrendje a tárban: 

B(0,0,0) ESZT t eg te 

B(1,0,0) 

B(0,1,0) 

B(1,1,0) 

B(0,2,0) 

B(1,2,0) 

B(0,0,1) 

B(1,0,1) 

B(0,1,1) 

B(1,1,1) 

B(0,2,1) 

B(1,2,1) 

B(0,0,2) 

B(1,0,2) 

B(0,1,2) 

B(1,1,2) 

B(0,2,2) 

B(1,2,2) ÉT St hág 

B(0,0,3) zs 

B(1,03) 8 

B(0,1,3) 

B(1,1,3) 

B(0,23) 

B(1,2,3) 


A sorrendből látható, hogy az első index változik a leggyorsabban, "az utolsó 
pedig a leglassabban. 

Ha a tömböt egész típusú változóként dimenzionáljuk, akkór az egyes elemek 
csak két byte-ot foglalnak el, ami jelentős. helymegtakarítás a valóskénti táro- 
lással szemben. A füzértömbök tárolásánál minden elem számára a füzér 
tartalmának tárolásán kívül három byte-ra van szükség, ebből egy a füzér. 
hosszát, a maradék kettő pedig a füzér tárbeli círrét tartalmazza. 


31. . 


Eddigi ismereteink alapján általánosan is kiszámíthatjuk, hogy egy tömb mek- 
kora helyet foglal el a tárban: 


T — 5-42xN-ESSZOR (N,--1) 


ahol T: a szükséges tárterület 
N: az indexek száma 
E: az elemenkénti helyigény 
2 — egész típusú változónál (INTEGER) 
5 — való típusú változónál (REAL) 
3 — füzéreknél (STRING) 
SZOR (N,71- 1): az indexhatárok eggyel megnövelt értékeinek szorzata. 


A konstans (5) az azonosító tárolásához szükséges 2 byte-ból, az elfoglalt 
terület méretének tárolásához szükséges 2 byte-ból, ill. az indexek számának 
tárolásához szükséges 1 byte-ból tevődik össze. A 2N byte az indexek felső 
határainak tárolására szolgál. 

Az egyes elemek tárolási igényét (E) változó típusonként lehet meghatározni. 
A fenti program A(500) tömbjének tárolásához szükséges tárterület a képlet 
alapján: 


5 4 281 4 4(501) azaz 
2512 byte 


T 
T 


I 


I 


A B(1,2.3) háromindexes tömb helyigénye: 


T— 5 4 243 1 54(24344) azaz 
T — 131 byte 


Az A" (10, 10, 10) egész típusú tömb helyigénye: 


T — 5 3 243 - 26(11611x11) azaz 
T — 2673 byte 

Az A$ (100, 100) füzértömb nem nagyon fér el a tárban. 
T — 5 4 282 4 34(1014101) azaz 


T — 30603 byte 


" A tömb bejegyzése már önmagában elfoglal 30 kbyte-nyi területet. Az 10201 
elem tényleges tárolására mindössze 8 kbyte marad. 
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1.5 A BASIC ÉRTELMEZŐ LEBEGŐPONTOS FÜGGVÉNYEI 


A lebegőpontos alapműveletek tárgyalása után térjünk át a BASIC értelmező 
lebegőpontos függvényeinek ismertetésére. 
A függvény általános alakja: 


Y — F(x) 


ahol x a független változó (argumentum), Y pedig a függvény értéke. 
A lebegőpontos függvények hívása előtt az argumentumot (x-et) az FAC-be kell 
betör eni és az értelmező az eredményt ugyanide tölti. 


A lebegőpontos függvények: 


Láda T45. 363636 

Nev Cim Vegrehajtasi idö  Müvelet 

ABS $BC5B 0.0 ms Abszolutertekfüggv. 

ATN $ESOE 44.6 ms Arcus tangens függv. 

cos $E264 27.9 ms Cosínus függveny 

EXP $BFED 26.6 ms Hatvanyra emeles (alapze) 
FRE $B37D 0.6 ms Szabad memoria vizsgalata 
INT $BCCC 9.9 ms Egeszresz függveny 

LOG $B9EA 22.2 ms Term.alapu logaritmus 
POS $B39E 0.3 ms Kurzorpozicíio 

RND $E097 5.5 ms Veletlenszam-függveny 
SGN $BC39 0.4 ms Elöjel-—-függveny 

SIN $E26B 24.5 ms Sinus függveny 

SOR $BF71 51.2 ms Negyzetgyökvonas 

TAN $E2B4S 49.B ms Tangens függvenv 


A számítási időket az X — z argumentummal mértük le. A táblázatból kitűnik, 
hogy az egyes függvények számítási ideje meglehetősen eltérő. 

Az ún. transzcendens függvények (COS, EXP, LOG, SIN, TAN, ATN) végrehajtá- 
sa jóval több időt igényel, mint az egyéb függvényeké. 

Ennek magyarázata abban rejlik, hogy a transzcendens függvények értékének 
kiszámítása nem vezethető vissza egyszerűen a négy alapműveletre. A számí- 
tásokat az értelmező korlátozott pontosságú közelítő eljárásokkal végzi el. 
Legtöbb esetben a közelítés képlete az alábbi polinom formájában adható meg: 


y-atasxtasxitajsxi ta xxí-b... 
Minél több tagot veszünk figyelembe, a számítás eredménye annál pontosabb, 


de a végrehajtás ideje is annál nagyobb. 
A fenti polinom értékének kiszámításához 


142-4344-45 — 15 


szorzási és 5 összeadási művelet elvégzésére van szükség. 
A számítást egyszerűsíti a matematikából jól ismert Horner-elrendezés, amely 
szerint a polinom értéke az alábbi zárójeles kifejezésekkel is kiszámítható. 


y — ((((a.xtaj:xtajrxtajextajsxta 
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Ezzel a módszerrel ugyanazon érték kiszámításához már csak 5 szorzás és 5 
összeadás elvégzése szükséges. 
Általánosan egy N-edfokú polinom értékének kiszámításához az első módszer 
szerint N(N— 1)/2 szorzásra és N összeadásra van szükség, mig ha Horner- 
elrendezéssel számolunk, a szükséges szorzások és összeadások száma egy- 
aránt N. 
A módszer egyszerűségét szemlélteti az alábbi BASIC program is. 

3RK P13. kesni 

100 YsA(N) 

119 FOR IsN—-1 TO 0 STEP-1 

129 YzYsX4HAC(I) 

1509 NEXT 
A program kiszámítja az N-edfokú polinom helyettesítési értékét az X helyen 
és az eredményt az Y változóban tárolja. 
A pelinom együttharót! az A mdexes változó tartalmazza A(0)-tól A(N)- ig. 
Ez az eljárás a transzcendens függvények kiszámításának leglényegesebb 
része. 
A rutin önmagában is használható. Hívása előtt a független változó (x) értékét 
az FAC-ben kell tárolni. A polinom együtthatóinak tárolási rendje: 

— a polinom fokszáma (n) 

— az n-edfokú tag együtthatója 

— az n— 1-edfokú tág együtthatója 


— a 0-dfokú tag együtthatója 
A polinom fokszáma egy byte-ot foglal el, az együtthatók pedig egyenként öt 
byte-ot. 
A rutin hívásakor át kell adni az együtthatók tárbeli elhelyezkedésének kezdőcí- 
mét úgy, hogy a cím alsó byte-ja az akkumulátorban, felső byte-ja pedig az 
Y regiszterben legyen. 
Egy átlagos assembler programmal kissé körülményes a lebegőpontos kons- 
tansok elhelyezése a programban. 
Meg kell ugyanis keresni előzetesen monitorral a változóterületen az egyes 
változók bejegyzésének kezdőcímét, majd ezt a címet .BYT utasítással a prog- 
ramban el kell helyezni. A PROFI-MAT 2.0 program az eljárást megkönnyíti 
azzal, hogy rendelkezik egy olyan utasítással (.FLP), amely közvetlenül beépíti 
a konstansokat a programba, az assembler program pedig átalakítja ezeket öt 
byte-os lebegőpontos formátumra. 
Alkalmazzuk eddigi ismereteinket az alábbi polinom értékének kiszámítására: 


Y — 0.742.54x 4 B.2exP—2.3xxX"t0.5zxxi 


9. P14. 4424 3t 


PROF1-ASS 64 VW2.8 


1001 OS5SSC :OPT P,BO 

11081 ; 

1201 ; Polinomszamitas 

1501 ; 

1401 ; kánt 828 j; Kazettapuffer 
1501 z 

1681  E059 POLYNOM  z $EB597 

1701 z 

1891 0O33C A9 45 LDA 44. KOEFF 
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1981 OSJSE AB OI LDY 4§42 KOEFF 


20901 0349 4C 59 Eg JMP —. POLYNOM 
2101 s 
2291 0OJ4I 04 KOEFF. -:BYT 4 1 Fokszam 
2381 0344 BB DO 09 -:FLP 0.5 ,; AC4) 
24081 BJ49 B2 93 533 FLP —-2.3 gy AC3) 
2501  O34E 84 83 553 eFLP 8.2 s; AC2) 
2681 OJSSI B2 29 80 eFLP 2.5 J Ati) 
27801 G3SS8 89 33 55 eFLP B.7 s Aca 
2801 s 

II3C-OISD 

NO ERRORS 


A fenti program feladata mindössze a paraméterek átadása és a belső polinom- 
függvény hívása. 

A program első részében átadjuk a függvény kezdőcímét, a második részben 
pedig a polinom együtthatóit a kitevők szerinti növekvő sorrendben. 

A kérdés most már csak az, hogy hogyan használhatjuk a fenti gépi kódú rutint 
egy BASIC programban, ill. hogy adhatjuk át a független változó (x) értékét és 
hogyan kapjuk vissza a végeredményt? A válasz nagyon egyszerű. A saját 
készítésű függvényt a beépített függvényekhez (SIN, COS stb.) hasonlóan hasz- 
nálhatjuk. 

Erre szolgál az értelmező USR függvénye, amely kifejezetten a felhasználó 
által meghatározott (user) függvények hívását végzi el. A gépi kódú rutin kezdő 
címét hívás előtt közölni kell az értelmezővel a 785/786 ($0311/$0312) címeken 
alsó és felső byte-ra bontva. Esetünkben ezt a következő POKE utasításokkal 
tehetjük meg: 


POKE 785, 828 AND 255 : POKE 786, 828/256 


Ha a gépi kódú program már a tárban van, és a fenti BASIC sort végrehajtot- 
tuk, a 


? USR(1) 


parancs hatására megjelenik a képernyőn a polinom X — 1 helyen vett helyet- 
tesítési értéke. 
Az eredményt eilenőrizhetjük: 


y — 0.7 42.54-8.2—2.3-7- 9.5 — 9.6 

Az alábbi BASIC sorral tesztelhetjük a gépi kódú rutint: 
FOR I — —5 TO 5 : PRINT USR (I!) : NEXT 

A futás eredménye: 


793.2 
397.1 
169.6 
54.9 
9.2 

sZ 

9.6 


28.1 
60.4 
1221, 
243.2 


A gépi kódú rutint feltétlenül érdemes beépíteni minden olyan programba, 
amelyben sokszor kell egy polinom értékét kiszámítani. Végrehajtási ideje 
(12.5 ms) ugyanis jóval kevesebb, mintha BASIC utasításokkal írtuk volna meg 
(45 ms). Minél bonyolultabb egy képlet, annál számottevőbb a BASIC és a gépi 
kódú program végrehajtási ideje közötti különbség. 

Ha a fenti programot másik polinom értékének kiszámítására is alkalmassá 
akarjuk tenni, az együtthatókat ki kell cserélnünk úgy, hogy ha valamely hat- 
ványérték a polinomban nem szerepel, a megfelelő helyre 0 értéket kell beírni. 
A következő példában egy olyan függvényt készítünk, amely kiszámítja egy 
egész szám faktoriálisát. Az n egész szám faktoriálisán az 1-től n-ig terjedő 
egész számok szorzatát értjük: 


n! — 1.243s ... kn 
Pl. 
5! 1521314x5 — 120 
71 112135415r6r7 — 5040. 


A matematikában a faktoriális fogalmát valós számokra is kiterjesztik. Egy 0 
és 1 közé eső szám faktoriálisát egy polinom közelítő értékeként határozzák 
meg. Az 1-nél nagyobb számok faktoriálisát pedig a következőképpen lehet 
visszavezetni az előző esetre: 


4.3! — 4.353.3r2.351.340.3! 


A 0.31 értékét az alábbi együtthatókat tartalmazó polinom helyettesítési értéke- 
ként számíthatjuk ki: 


III 


a 51 

a, — —0.57719 1652 
a, — .98820 6891 

a, — — .89705 6937 
a, — .91820 6857 

a, — —.75670 4078 
a, — .48219 9394 

a, — —.19352 7818 
a, — .03586 8343 


A polinom értékét meghatározó rutin a P.14 program alapján: 
64626 Pi5S. 96964 


PROF1I-ASS 64 V2.0 


19001 osZ3c : OPT P1,O0 

110: ; 

120: j A faktorialis kiszamítasanak polinomja 
1501 ; 

1409r [/5.Si vi hám 828 j Kazettapuffer 
1501 s 
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160: EG597 POLYNOM  — $E057 
1701 b 


180: BIZC A7 43 LDA $C( KDEFF 
1901 GIIE ag 03 LDY $2 KDEFF 
2901 oz4ag 4C 59 Eg JIMP —POLYNOM 
2101 j ! 

2291 9343 08 KOEFF -BYT € z; 8-adfoku polinom 
230: 054384 7€ 12 EA -:FLP .DI3S586AZ4Z 
2401 9349 7E CS 2C sFLP -—.193527818 
250: 034E 7F 746 EZ :FLP .4821959394 
2601 os553 890 Ci B7 -FLP —.756704078 
2701 90358 80 6B OF -:FLP .918206857 
28BO1 O35SD 80 E5 A5 :FLP -.897056957 
2901 05362 80 7C FB :FLP .988296891 
500: 05367 8g 93 C2 eFLP -.577191652 
SIOs 036C B1 9090 00 -FLP 1 

2353C-0371 

NO ERRORS 


A P.15. program birtokában PRINT USR(X) utasítással kiírathatjuk a képernyőre 
bármely 0 és 1 közé eső valós szám faktoriálisát, pl: 


? USR (.1) — 0.951350564 
? USR (.5) — 0.886227246 


A (0,1) számtartományon kívül eső számok faktoriálisának kiszámítása sem 
okoz gondot. A következő program tartalmazza a szükséges bővítéseket. 


46416 P16. 4446-46 7 


19 INPUT "ARGUMENTUM" px 

29 IF XCGg OR X233 THEN 19 

I9 IF X2a9g THEN Ys1 : GOTO 70 

40 VnX : IF XC1i THEN Y sm USR(X) : GOTO 709 

59 XmX-1 s IF X21 THEN YzYwX : BGOTO 50 

69 IF XC21 THENY z Y 4 USRC(X) 

70 PRINT "FAKTORIALIS sz "zY 
A 20-as programsorban kizárjuk az értelmezési tartományból a negatív számo- 
kat, illetve azokat a számokat, amelyek faktoriálisa nagyobb lenne 1E38-nál. 
A 30-as sorban a 0-hoz definíciószerűen az 1 faktoriális értéket rendeljük. Az 
50-es sorban mindaddig szorozzuk a rendre 1-gyel csökkentett értékeket, amíg 
a levonás eredménye 1-nél kisebb nem lesz. A 60-as sorban megvizsgáljuk, 
hogy a beolvasott szám egész szám volt-e. Ha nem, akkor a szorzás eddigi 
eredményét még meg kel! szorozni a polinom értékével. Végül a 70-es sorban 
kiírathatjuk a végeredményt, azaz a beolvasott számértéknek megfelelően 
például a következőket: 


0— 1 

fsz. 1 

1.5 — 1.32934087 
2262 

3563 

0.5 5 .886227246 
7.35 5. 10287.3151 


Az elkészült programot érdemes lenne teljes egészében gépi kódban megírni, 
hiszen a leglényegesebb rész, a polinom kiszámítását végző rutin már készen 
van. A program átírása közben további belső aritmetikai rutinokkal ismerked- 


hetünk meg. 
37 


Készítsük el a feladat folyamatábráját. 


START 


FAC tárolása 
a TEMP-ben 


HinLEGaL avanrrrH 
0 


kő OVERFLOW ERROR 


FAC-TEHFHOTD 


FAC- POLY(FAC) 
FAC-FAC"TEMP 


Próbáljuk ki az elkészúrt programot, de ne feledkezzünk el a USR vektor kezdő 
címének beálitásárói, enélkül ugyanis az ILLEGAL OUANTITY hibaüzenetet 
EE TÉT s gs; : 

99. P17. kesdsé 


PROF1-ASS 64 V2.O 


1901 o33ce "ÖPT P1,O0 

1101 o3sc START z 828 j; Kazettapuffar 

120: B77E OVERFLOW s $B97E 1 DOVERFLOW ERROR 

1502 B248 ILLOUAN - $B248 !; ILLEGAL OUANTITY 
1401 ; 

1501 BBD4 FACMEM haj $BBD4 3; FAC tarolasa 

1605 BBAZ2 MEMFAC - $BBAZ 3 FAC betoltese 

170: BCSB VERGLCH - $BC5SB 1 Konstans osszshasonliíitasa FAC-vel 
180: B867 MEMPLUS - $B867 3 Konstana t FAC 

1901 BA2ZB MEMMULT z $3BA2B ; Konstans x FAC 

2007 E059 POLYNOM s 3E059 3; Polínomszamitas 
210: 0066 SIGN hal $66 3 Elojel 

220: 0061 EXP z $6ói 1 Exponens 

2301 $ 

2401 os3c at START 

2501 OZZC AZ FS LDX-- 4K TENP 

260: OSZE AD 03 LDY. 462 TEMP 

2701 03409 20 D4 BB JSR FACMEM ; A FAC tarolasa TEMP-ben 
2801 ; 

2901 0343 24 66 BIT SIGN ; Elojelvizsgalat 
300: 0345 10 03 BPL OKIi 3 Pozitiv ? 

3103 0347 4C 48 B2 IJMP  ILLOUAN 

3201 O34A A? FO OK1 LDA ö§$c MAX 

3301 034C Ag 03 LDY 4§2 MAX 3; Mutato a konstans 34-re 
340: 034E 20 SB BC JSR VERGLCH 

350: ossi 309 03 BMI  OKZ2 ! Kisebb ? 

360: 90353 4C 7E B9 JMP  OVERFLOW 

370: 0356 AS 61 OK2 LDA EXP z; FAC 0 

3801 0358 FO 52 BEG EGYENLO ; akkor 1 

3901 oOSS5A AJ E6 LDA 4§£ EINS 

400: os5Cc ag 03 LDY 682 EINS 

410: 035E 20 SB BC JSR VERGLCH t Osszehasonliítas 1-gyel 
4201 0361 30 50 BMI KISEBB 

3301 90363 A? EB CIKLUS LDA c MINUSI 

4840: 93zéó5 Ag 03 LDY §5 MINUSI 

4501 0367 20 67 B8B JSR MEMPLUS 

4601 056A AY E6 LDA 4$( EINS 

470: 036C Ag 03 LDY 42 EINS 

480: 036E 20 SB BC JSR VERGLCH :; Osszehasonlitas 1-gyel 
490: 0371 30 1F BMI  NEXT 3 Mar nem nagyobb ? 
SO00: 0373 AZ FA LDX ü£ TEWMPZ 

510: 0375 Ag 05 LDY 653 TENP2 

520: 0377 20 D4 BB JSR FACMEM 4; FAC atmeneti tarolasa 
530: Oo3Z7A A? F5 LDA CK TEMP 

540: e037C Ao 03 LDY 42 TEMP 

550: 037E 20 28 BA JSR MEMMULT 3; FAC § TEMP 

560: 0381 A2 F5 LDX §c TEMP 

570: o0o383-aAg 03 LDY 42 TEMP 

5801 oz8es5 29 D4 BB JSR FACMEM ; Az eredmeny TEMP-be 
5901 0388 A9 FA LDA $cC TEMP2 

600: ozea ag 03 LDY 43 TEMP2 

6101 oseC 29 AZ BB JSR MEMFAC 3 FAC visszatoltese 
620: 0O38F 4C 63 03 JMP CIKLUS 

6301 ; 

640: 0392 A9 E6 NEXT LDA $X EINS 

6501 0594 Ag 03 LDY §$? EINS 

6601 0396 29 5B BC J8R VERGLCH ; FAC si? 

670: 0399 DO 07 BNE TOVABB 

6801 $ 

6903: O39B A F5 LDA üK TEMP 

700: O39D AG 03 LDY ú§5 TE 
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7101 O39F 4C AZ BB JMF  MEMFAC ; BetolteS FAC-ba 


7201 s 

7301 03A2 29 Bó 03 TOVABB JS8R POLY ; A polinom szamitasz 
7401 osAS A? F5 LDA HC TEMP 

750: 95SA7 AD 03" LDY 42 TEMP 

7601 03A9 4C€C 28 BA JMP — MEMMULT 

770: s 

780: OZAC A? E6 EGYENLO LDA K.K EINS 

7901 OZAE Ag 03 LDY 4§$2 EINB 

990: OZBO 4C AZ BB JMP  MEMFAC ; 1 a FAC-ban 
810: s 

820: O3B3 4§C Bó 63 KISEBB IJMP- POLY 3 FAC 5 POLYK(FAC) 
830: ; 

840: : Faktorialis kíszamítasanak polinomja 
850: ; 

8601 03B6ó AY BD POLY LDA ú$- KOEFF 

870: O3B8 AY 03 LDY  §$2 KOEFF 

880: OZBA 4C 59 Eg JMP  FOLYNOM 

89091 ; 

99001 OZBD 08 KOEFF :"BYT B 3 8-adfoku polinom 
910: OSBE 7C 12 EA -:FLP .035868345 

7201 MSEI-7É Cé 2C -FLP-—. 193527818 

9301 9ICS 7F 76 EZ2 :FLP .482199394 

9401 OZCD BO Ci B7 .:FLP —.756704078 

9502 OZD2 BO 6B OF :":FLP .918206857 

9601 03D7 80 E5 Aa5 .-:FLP -.897056937 

9701 OZDC BO 7C FB :FLP .988206891 

9801 03E1 80 93 C2 -FLP -.577191652 

9901 , 

10001 j; Tovabbi lebegopontos konstansok 
19101: O3Z3Eó 81 00 00 EINS " FLB-i 

1020: OZEB Bi 80 00 MINUSI - FLP- si 

10301 0O3FO 86 08 00 MAX eFLP 54 

10401 ; 

10501 z3 Atmeneti tarolo 

10601 O3F5 TEMP ész 415 

1970:  OSFA TEMP2 ez 4415 

10330€-DZFF 

NO ERRORS 


Az előző BASIC programnál szemmel láthatóan hatékonyabb, gyorsabb gépi 
kódú függvényt kaptunk. Ismerkedjünk meg a felhasznált belső rutinokkal: 


363636 T44. 36 46at 
?USR(B) zzz; 1 

?USR(1) z2 1 

?USR (2) zs; 2 

?USR(3) zzz 6 

?USR(.5) z2  .BB6227246 

?7USR(4.5) szd 52.3427967 

?7USR(—1) z2  ILLEGAL OCUANTITY ERROR 
?USR (40) z2  "OVERFLOW ERROR 


FACMEM - Ez a rutin tárolja a lebegőpontos akkumulátor (FAC) tartalmát azon 
a címen, amelynek alsó byte-ja az X, felső byte-ja pedig az Y regiszterben van. 
A tárolás 5 byte-os, rövidített formában történik. 

MEMFAC - A fenti rutin ellentéte. Betölt egy lebegőpontos számot az FAC-be 
arról a címről, amelynek alsó byte-ja az akkumulátorban (A-ban), felső byte-ja 
pedig az Y regiszterben található. 

VERGLCH - Ezzel a rutinnal az értelmező két valós számot hasonlít össze. Az 
egyik szám azon a tárcímen van, amelynek alsó byte-ja A-ban, felső byte-ja 
Y-ban található, a másik pedig az FAC-ben. Ha a két szám egyenlő, az akkumu- 
látor tartalma 0, a Z kapcsoló értéke pedig 1 lesz. 
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Ha az első szám kisebb, akkor az akku tartalma —1 ($FF) és az N kapcsoló 
értéke 1, egyébként az akku tartalma 1, az N kapcsoló értéke pedig 0 lesz. 
MEMPLUS - Ez a rutin két részből áll. Először betölti az A (alsó) és Y (felső) 
cím tartalmát az FAC-be, majd összeadja az FAC és az ARG tartalmát, és az 
eredményt az FAC-be helyezi el. 

MEMMULT - Az előző rutinnal szerkezetileg azonos, de összeadás helyett 
szorzásra vonatkoztatva. 

Az OVERFLOW és ILLOUAN címeken azokat a rutinokat hívtuk meg, amelyek 
kiírják a megfelelő hibaüzeneteket. Ha meggondoljuk, az X- 34 esetet a prog- 
ramban fölösleges volt külön kezelni, hiszen az értelmező egyébként is a 
túlcsordulási hibaüzenetet írta volna ki. 

Gyakran szükség van a következő alakú polinom értékének kiszámítására: , 


y—- asxtajxxitba sxő-hajax7 kb... 


A feladatot visszavezethetjük a polinom kiszámításának eredeti módszerére, 
mindössze annyit kell tenni, hogy x helyett az eredeti polinomba xf-et kell 
helyettesíteni, majd az eredményt meg kell szorozni x-szel. 


— xx(aj ta r(x) Fa r(x)? ta x(x)i ...) 
A legtöbb beépített függvény használja ezt a rutint, ugyanis a közelítőpolinom 
legtöbbször a fenti alakú. A rutin hívása előtt az agumentumot általában a rutin 
által értelmezett tartományba kell transzformálni, majd az eredményt kiírás 


előtt az eredeti értéknek megfelelően vissza kell alakítani. 
Számítsuk ki a rutinnal a következő polinom értékét: 


y — 6rxt10.5.x?— 0.11 ex" 


Az együtthatók bevitelénél ügyeljünk arra, hogy az ötödfokú tag hiányzik! 


4446-tt Pi18. 969636 


PROF1-ASS 64 V2.0 


1901 O3Z3ZE -OPT P,OD 
110: [/ 510 házi 828 

1201 ; 

130: ES43 POLY2 - $E043 

1401 ; 

1501 O3I3ZC A? 43 LDA $£C KOEFF 

1601 OZZE Ag 03 LDY  $2 KDEFF 

170: 0340 4C 43 Eü JMP  POLYZ2 

1801 a ; 

1901 0343 03 KOEFF .BYT 3 ;: Fokszam 
2001 0344 7D E1 47 . FEBR —é ii 

2101 0349 09 09 00 .FLP 0 

2201 934E 89 09 00 FPS 

2301 0353 83 40 00 .FLP 6 

1933C-0358 

NO ERRORS 


A program futtatásánál vegyük figyelembe, hogy az a polinom fokszámát nem 
a legmagasabb hatványkitevőből, hanem az együttható sorszámából határozza 


meg, hiszen a kitevők x-re vonatkoznak. 
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A program teszteléséhez néhány futtatási eredmény: 


klsdsi T45. ösi 

USR ( 2) z o 

USR(1) z 6.59 

USR (2) z 1.92 

USR(. 75) z 3.69625427 


Végül a lebegőpontos számok kezelésével kapcsolatban kitérünk egy, a prog- 
ramozás során gyakran felmerülő feladat, nevezetesen a számhalmazok ren- 
dezésének megoldására. 
Írjuk meg az alábbi rendezési algoritmust gépi kódban: 

94.44-4t Pi19. 44464 

100 FOR Izs1i1 TON t: FL-B 

118 FOR J-N TO I STEP -1 

129 IF A(J-1)2A(J) THEN H5sA(J)tA(J)s5SA(J—-1):A(J—1) sHs:FLls1i 

1530 NEXT J 

1409 IF FL-O THEN RETURN 

159 NEXT I 13 RETURN 
Az A(N) egyindexes tömböt a 100-as sorban kezdődő szubrutinnal rendezzük, 
amelyet a GOSUB 100 utasítással hívunk meg. 
A program az ún. ,buborék-rendezés" algoritmussal dolgozik. Az algoritmus 
végrehajtása során rendre összehasonlítjuk az egymást követő elemeket. Ha 
a sorban az első elem nagyobb mint a második, a két elemet felcseréljük, és 
egy kapcsoló értékét 1-re állítjuk. Erre szolgál a fenti programban a két egy- 
másba ágyazott ciklus. A belső ciklus lefutása után a kapcsoló (FL) értéke 
alapján megvizsgáljuk, hogy ebben a ciklusban volt-e elemcsere. Ha nem volt, 
akkor FL értéke nulla, ami egyben azt jelenti, hogy az elemek növő sorrendben 
követik egymást, tehát a rendezéssel készen vagyunk, az algoritmus végrehaj- 
tása itt megszakad. Egyébként az első ciklus befejeztével a legkisebb elem az 
első helyre, azaz az A(0) változóba kerül. A következő lépésben a belső 
ciklusnak már csak a 2 indexhatárig kell lefutnia, hiszen az első, azaz a 
legkisebb elem már a helyére került stb. 
Ahhoz, hogy a gépi kódú rendező kellőképpen hatékony legyen, érdemes 
meggondolni, hogy hogyan kezeli az értelmező a tömböket. 
A tömbök programbeli deklarálásakor az értelmező egy táblázatot készít, 
amely az egyes tömbök bejegyzéseit tartalmazza, és egy változóban tárolja a 
táblázat kezdőcímét. 
Hogy rendezés előtt ne kelljen végigvizsgálni a táblázatot ahhoz, hogy a 
rendezendő tömböt megtaláljuk, érdemes a programban legelőször ezt a töm- 
böt megadni, így biztosak lehetünk abban, hogy a bejegyzése a táblázat elejére 
kerül. 

4644 at P20O. tét 


PROF1I1-ASS 64 V2.0 


100: o33Cc -OPT P.O 


110: DO2ZF ARRTAB z $2F NM 3 Mutato a tombtablazatra 
1201 0057 dezz $57 ae rib; 

1350: 0057 IPNT isz 442 

140: 09959 JPNT házi 442 

150: 0058 JPNT1 ház 442 

1601 ; 

170: BEAZ MEMFAC z $BBAZ 

1801 BCSB VERGLCH sz $BCSB 

190: ; 

200£ o33c házi sze 1 Kazettapuffer 
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210: 
22091 
230: 
230: 
2501 
260: 
270: 
280: 
290: 
300: 
310: 
320: 
320: 
3301 
340: 
3501 
360: 
370: 
3807 
39931 
4907: 
410: 
420: 
4301 
4401 
350: 
460: 
470: 
4701 
480: 
4801 
4907 
5005 
510: 
510: 
520: 
szo: 
5401 
550r 
560: 
560901 
5601 
57031 
S801 
590: 
6002 
6101 
6201 
6301 
640: 
640: 
650: 
6601 
670: 
6801 
6901 
700: 
710: 
7201 
7501 
7401 
7501 
7501 
7603 
7701 
780: 
7903 
890 
Big: 
a2z9gz: 
8301 


G33c 
O3ZE 
O3ZF 
0341 
0343 
09346 
9347 
0349 
9358 
034E 
0351 
0352 


. 0354 


"0357 
0359 


os5c 
ossSE 
os5SF 
0561 
[/AMI 
036 
0367 


0369 
0368 
036E 
05371 
0575 
2376 


0378 
o37A 
037B 
037D 
037F 
0380 
9582 
0384 
9386 
0387 
ose8 


038B 
osep 
os8F 
0392 


a394 
90396 
55599 
0398B 
339e 
osgE 
03A0 
03A1 
o3zas 
0394 


osaS 
95A8 
o3a9 
B3ZAB 
O3AD 
o3zAaF 


OSB1 
aze 
9585 
9587 


[5 


oz 
os 


03 


BB 


os 


SWAP 


; 
NEMCSERE 


TESTJ 


LDA 
cCLc 
LDY 
ADC 
STA 
INY 
LDA 
ADC 
STA 
LDA 
SEC 
SBC 
STA 
BCS 
DEC 


LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 


LDY 
STY 
LDA 
STA 
LDA 
STA 


LDA 
SEC 
SBC 
sTA 
TAX 
LDA 
SBC 
STA 
TAY 
TXA 
IJSR 


LDA 
LDY 
JSR 
BMI 


LDY 
STY 
LDA 
TAX 
LDA 
STA 
TXA 
SsSTA 
DEY 
BPL 


LDA 
SEC 
s8BC 
STA 
BCS 
DEC 


CMP 
BNE 
LDA 
cmP 


ARRTAB 


42 
(ARRTAB),Y ; A meret hozzaadasa 
NFNT iz Mutato a tomb vegere 


ARRTABT 1 
(ARRTAB) ,Y 
NPNT-i 
NPNT 


5 
NPFNT 
og 
NFNT-H1 


ARRTAB 


87 

IPNT 3; Az I mutato az A(0)-ra 
ARRTAB-t1 

wo 

IPNT-(1 
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FLAG ; A kapcsolo torlese 
NPNT 

JPNT ;y JJ: N 

NPNT--1 

JPNTF1 


JPNT 


85 
JPNT1I 3 J-1, mutato 


IPNT--1 
40 
JPNT1--1 


MEMFAC j; A(J-1) FAC-ba 


JIPNT 

JPNT41 

VERGLCH : Osszehasonlitasa A(J)—vel 
NEMCSERE 


.64 

FLAG ; A kapcsolo beallitasa 
(IPNT) ,Y 

(JPNT1) ,Y 


(IPNT) ,Y;3 A(J) em A(J—1) 
j; felcserelese 
(JNPNT1) ,Y 


SWaPpP 
JPNT 


a5 " § J z J-i 
JPNT 

TESTJ 

3PNT61 


IPNT 

JILOOP 

JPNTO2 §€I ad ? 
IPNT-2 


B4O: 93B9 DG BD BNE  JLOOP 


8591 ki 

B60: OZBB AD DB 05 LDA FLAB Jz3 Nem volt cserg ? 
8701 OSBE FO 17 BEG ENDE 

8801 3 

8901 OICO A5 57 LDA IPNT 

9001 OSC2 18 CcLEe r 

9001 O3ZCI 69 05 ADC §5 y I a 161 
9101 o3zCS5 85 57 STA IPNT 

9201 03C7 90 02 BCC TESTI 

9301 OSC E6 58 INC IPNT-FI 

9401 ; 

9501 B3CB CD D9 03 TESTI CMP NPNT 

9601 O3CE DO 99 BNE  ILO0P 

7701 oI3DO A5 58 LDA IPNTti IN? 
9801 O3D2 CD Da 03 ECMP  NPNT-HI 

9991 03D5 DO 92 BNE  ILOOP 

19901 ; 

1010:  O3D7 60 ENDE RTS 

10201 fi 

10301  O3DB8B FLAG az 96-41 

19401  O3D? NPNT dés 142 

JO33C-OSDB 

NO ERRORS 


A gépi kódú rutin elvégzi ugyanazt a feladatot, amit a P.19-es BASIC program. 
Hívása előtt az adatok helyes előkészítéséről a felhasználónak kell gondoskod- 
nia, ugyanis a rutinba semmilyen ellenőrzést nem építettünk be. Nem vizsgálja 
meg azt sem, hogy milyen tömböt (hány indexes) deklaráltunk, és azt sem, 
hogy a tömböt valóban feltöltöttük-e adatokkal. Mindez a használó dolga. 
A rutint a SYS 828 

utasítással hívhatjuk meg. 

A gépi kódú rutin hatékonyságát bizonyítandó elkészítettük az alábbi összeha- 
sonlító táblázatot, amely tartalmazza az azonos méretű véletlenszám generá- 
torral feltöltött tömbök rendezéséhez szükséges végrehajtási időt a gépi kódú, 
ill. a BASIC program esetében. 


364636 T46. 363634 

N BASIC GEPI RUTIN 

10 - ret 9.o 

50 1 4, dl 0.3 
1009 1—BE TT 1.5 
200 4. 395" 6.3 
500 41 S8.7 
1090 2h 44 2  S53.4 


Megfigyelhetjük, hogy a rendezési idő az elemszám növekedtével négyzetesen 
nő, azaz 2-szer annyi elemű tömb rendezéséhez 4-szer annyi időre van szük- 
ség. 

Ez a magyarázata annak, hogy amint viszonylag nagy elemszámú tömböt keli 
rendezni, a BASIC program kivárhatatlan ideig (órákig) dolgozik. 

A gépi kódú program végrehajtási sebessége 60-szorosa a BASIC programé- 
nak. 

Az is elképzelhető, hogy egy-egy feladat megoldása során olyan nagy tömböket 
kell rendezni, hogy már a gépi kódú rutin sebessége sem elegendő. 

Ekkor a buborék algoritmust hatékonyabb rendezési eljárásra ke!! kicserélni. 
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A gyakorlás kedvéért módosítsuk most úgy a rutint, hogy az alkalmas legyen 
egész típusú tömb rendezésére. Mit kell ennek érdekében megváltoztatnunk? 
Először is figyelembe kell vennünk, hogy a tömb egy elemének helyigénye 
most csak két byte a korábbi öttel szemben. Másrészt az elemek összehasonlí- 
tásához nincs szükségünk rendszerrutinra. 

Elmaradhat a számok lebegőpontossá alakítása is, hiszen a kétbyte-os egésze- 
ket közvetlenül, átalakítás nélkül is összehasonlíthatjuk. 

Ezek a módosítások jelentősen javítják a program hatékonyságát, az új rende- 
ző sokkal gyorsabb lesz mint az előző, amely valós számokkal dolgozott. 
Azon Olvasóink számára, akik kézikönyvként szeretnék használni ezt a köny- 
vet, közöljük a BASIC értelmező aritmetikai függvényeinek és műveleteinek 
táblázatát. 


kásásá T46/1. árát át 
Nev Cim Mutato a Elokeszites FAC Funkcio 

konstansra ú 
MEMARG  $BABC AZY kal - ARG :s konstansok 
FACARG $BBFC - fest hé FAC :z ARG 
DIV $BB12 - A z EXP . FAC :z ARG / FAC 
MEMDIV  $BBOF AZY - há FAC :z konst./FAC 
MAL1O $BREZ bi - hé FAC :z FAC § 10 
DURCH1O $BAFE - . 4 FAC :7- FAC / 10 
PLUSOS $BB497 - - 4 FAC :z FAC 4 p.5 
MEMFAC  $BBAZ2Z AZY - hé FAC :5- Konstansok 
FACARG  $BCOC a — - ARG :z FAC 
FACMEM  $BBD4 út. - - Konstansok 15 FAC 
MINUS $B8S5SZ - A z EXP hé FAC :z ARG - FAC 
MEMMIN  $8B850 A/Y - ké FAC sz Konst./FAC 
MULT $BAZB 5 A 5 EXP hé FAC :5 ARG § FAC 
MEMMULT $RAZB AZY sz 4 FAC 175 Konst.$FAC 
PLUS $BBóR e A s EXP hé FAC i:z ARG 4 FAC 
MEMPLUS $BB67 AZY - hé FAC :7- Konst.t$tFAC 
HOCH $BF7B - A sz EXP 4 FAC s:z ARG 7 FAC 
HOCHMEM $BF7B AZY - há FAC :z ARG " Konst. 
POLY $E0597 AZY - hé FAC :z Polinom 
POLY2 . $E0453 AZY - hé FAC sz Polinom2 
OR $AFE6G - - hé FAC :z ARG OR FAC 
AND -" $AFE9 - —- há FAC :z ARG AND FAC 
NOT $AED4 se szi há FAC :5 NOT FAC 
VERGLCH $BCS5SB AZY - - FAC osszehasoni. a konst. 
ROUND $BCIB na - Ab FAC kerekitese 
CHGSGN  $BFB4 - - cz FAC isz - FAC 


A konvertáló rutinokat és az alapfüggvényeket a fenti táblázatból kihagytuk, 
hiszen ezeket már korábban ismertettük. A táblizzat tartalmazza a rutinok 
paramétereit és a rutin pontos leírását. 
Az FAC alatti oszlopban a ,, t" és , —" jelek arra utalnak, hogy az FAC értéke 
a rutin végrehajtása közben módosul vagy nem. Ha a rutin a műveletet az FAC 
és az ARG akkumulátorok tartalmával végzi el, tívás előtt be kell tölteni a 
kitevőt az FAC-ből az akkumulátorba. 
Az AND, az OR, ill. a NOT logikai műveletek előtt az értelmező az operanduso- 
kat 16 bites egész számokká alakítja, elvégzi a műveletet, majd az eredményt 
ismét lebegőpontos alakban tárolja az FAC-ben 
A rutinok végrehajtásához szükséges valós állanc okat az értelmező fix tárcí- 
meken tárolja. 

45 


ksösösöll T46/2. keösösi 
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Cím Konstansok Decimalis ertek Jelentes 
$AEAB 82 49 OF DA Al 3.14159265 Pi 
$B1A5 99 89 00 39 00 -32768 
$B9BC 81 00 09 09 00 j 3 
$B9C2 7F SE 56 CB 79 .434255942 
$B9C7 80 13 9B OBB 64 . 576584541 
$B9CC 89 76 38 93 16 - 9761890759 
$B9D1 e2 38 AA SB 29 2.88539007 
$B9D6 eg 35 04 F3 34 . 7027106781 1/SOR(2) 
$B9DB 81 35 04 F3 34 1.41421356 SEOER(2) 
$B9E0 8g 89 09 98 00 —t 
$B9E5 89 31 72 17 F8 .6931471B1 LOB (2) 
$BAF9 84 29 09 08 00 10 
$BDB3 9B 3E BC 1F FD 99999999.9 
$BDB8 JE 6E 6B 27 FD 999999999 
$BDBD JE 6E 6B 28 00 1E9 
$BFBF 81 38 AA 3B 29 1.44269504 1/LOG(2) 
$BFC5 71 34 58 3E 56 2.14987637E-5 
$BFCA 74 16 7E B3 1B 1.4352314E-4 
$BFCF 77 2F EE E3 85 1. 34226348E-5 
$BFD4 7A 1D 84 1C 2a 9.614011791E-3 
$BFD9 7C $3 59 58 0A . 953505 1269 
$BFDE 7E 75 FD E7 C6 . 240226585 
$BFEJD eg 31 72 18 10 . 6973147186 
$BFEB Bi 99 39 09 09 1 
$EDBD 98 35 44 7A 89 11879546 
$E092 68 28 B1 46 098 I.92767774E-4 
$E2ZED 81 49 OF DA AZ 1.57079633 Pi/2 
$EZ2ES 83 49 BF DA A2 6.28318551 Pir2 
$E2EA 7F 09 09 09 00 . 25 
$E2FO 84 E6 1A 2D 1íB —-14.5815907 
$E2ZF5 86 28 07 FB F8 42. 0977971 
$EZFA 87 99 68 89 01 —76.7041703 
$EZ2ZFF 87 23 35 DF E1 81. 6052257 
$E304 86 A5 5D E7 28 —41.5147021 
$E399 83 49 OF Da Aa2 6.28318531 Pin2 
3ZESZIF 76 B3 8J BD D3 -6.84793912E-4 
$E5344 79 1E F4§ AG F5 4.859094216E-5 
$EI39 7B 83 FC Bg 10 —,0161117015 
$E34E 7€ BC 1F 67 CA . 0342095538 
$E3SJI 7C DE 53 CB Ci -.054279155 
$ES5SB 7D 14 64 70 4C . 02724571965 
$E35D 7D B7 EA 51 7A -.09898919185 
$E562 7D 63 38 8Aa 7E .119952413 
$E367 7E 92 44 99 53A —. 1428557808 
$E36C 7E 4€ CC 91 C7 . 19999912 
$E371 7F AA AA AA 13 —. SZSISZ3ZSZ16 
$E376 B1 09 03 03 09 1 


2.1! A MEGSZAKÍTÁSOK PROGRZEMOZÁSA 


A gépi kódú programozásnak ezt a területét általában a legjobb programozók 
is nagy ívben elkeri;fik. 

Az alábbi fejezetekben a megszakítástechnika alapelveinek lefektetésével sze, . 
retnénk bebizonyítani, hogy ez az idegenkedés teljes mértékben megaiapozat- 
lan. 

Miután megvilágítottuk a , megszakítás" (interrupt) fogalom lényyegét, az új 
technika alkalmazási területeit tárgyaljuk. ; 

Az angol interrupt kifejezés lefordítva , megszakítás"-t jelent. Mi az, amit meg- 
szakítunk? 

Egészen egyszerűen: az éppen működő, gépi kódú program futását. A megsza- 
kítás hardver eredetű, és a program, végrenajtásának bármely fázisában elő- 
idézhető. , Ki" vagy ,mi" képes megszakítani egy gépi kódú program végrehaj- 
tását? A kérdés megválaszolását ioz elengedhetetlen, hogy a processzor hard- 
verfelépítését némileg ismerjük-, 


A 6502-es, ill. a 6510-es mikr oprocesszor egy negyvenpólusú tok, amelyben 
különleges szerepet töltenek be az 


IRO és NMI 


jelű lábak. 
A rövidítések eredete: 


Interrupt Reguest — ; megszakítás kérés 
Non Maskable Inte rrupt — nem maszkolható megszakítás . 


A lábakon fellépő ír npulzus a következőket idézi elő: 
1. Impulzus az NMI lábon 


A processzor bef ejezi az aktuális műveletet és a programszámláló (felső, alsó 
byte), és az állapotregiszter pillanatnyi értékét elhelyezi a veremben. 

Betölti a $FFFA és $FFFB tárcímek tartalmát és ezeket a programszámláló 
aktuális értékeként kezeli, azaz végrehajt egy indirekt ugrást, azaz egy JMP 
($FFFA) utasítást és az ugrás helyén talált programot futtatni kezdi. 

A végrehajtott programról később esik szó. 


2. Impulzus az IRO lábon 


Ez esetben is a fentiekhez hasonló folyamat zajlik le. A processzor az aktuális 
művelet befejezése után reagál a megszakításkérésre. 

Azonban most mielőtt ténylegesen végrehajtaná a megszakítást, megvizsgálja 
az állapotregiszter harmadik bitjének, az interrupt (1) kapcsolónak az értékét. 
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Ha ez 1, akkor , visszautasítja" a megszakítási kérelmet és folytatja a futó 


program végrehajtását. 

Ha a kapcsoló értéke 0 volt, akkor a processzor a fent leírtak szerint jár el: 
a programszámláló és az állapotregiszter aktuánsS értékét tárolja a veremben. 
Az I kapcsoló értékét 1-re állítja annak érdekében, nogy a ,kiítérő" program 
futását újabb megszakiítási kérelem ne zavarja. Betölti a $.FFE és $FFFF címek 
tartalmát (felső, alsó byte), és az ezen a címen talált címet texinti a program- 
számiáló új értékének. 

A megszákító programból hogyan lehet visszatérni? 

Erre a célra egy speciális gépi kódú utasítás szolgál: 


RTI — Return from Interrupt 


Az utasítás a megszakításnái végrehajtott lépések ellentétét váltja ki. Az álla- 
potregiszter, ill. a programszámláió értékét visszatölti a veremből, majd ezen 
a címen folytatja a program végrehajtását. ET 

A megszakított program természetesen nen? figyeli, hogy ,őt" saját magát a 
megszakítás során megváltoztattuk, vagy sem. A processzor csak az állapotre- 
giszter tartalmát menti, a többi regiszter értékével nem foglalkozik. Helyreállí- 
tásukról a programozónak kell gondoskodnia z1z RTI utasítás végrehajtása 


előtt, pl. így: 


964 db dé PGai. há Ad 
INTERRUPT PHA 4 Az akkumulator mentese 
TXA 
PHA 34; Az X-regiszter mentese 
TYA 
PHA ); Az Y-regíszter mentese 


! A megszakiíto rutin 


PLA 

TAY 4; Az Y-regiszter visszatoltesm 

PLA 

TAX j Az X-regiszter visszatoltese 

PLA 4 Az akku visszatoltese 

RTI !;! Visszateres a magszakito progr amb. 51 


A megszakító rutin szerkezetileg hasonló a szubrutinokhoz. A: alapvető különb- 
ség az, hogy a szubrutint a főprogram egy meghatározott hel yéről hívjuk, míg 
a megszakítást hardveresen váltjuk ki, és ez a főprogram végrehajtása közben 
bármikor történhet. A másik lényeges különbség, hogy a megszakítás során 
nemcsak a visszatérési címet, hanem az állapotregiszter tartalmát is megőriz- 
zük, ami elengedhetetlen ahhoz, hogy a megszakított program futása hiba 
nélkül folytatódhasson. 

Feltehetően az eddig leírtak megérlelték az Olvasóban is a következő, leglé- 
nyegesebb kérdést: 

Mi váltja ki a megszakítást? 

A Commodore 64-esen a megszakításnak többféle oka lehet. Nézzünk egy 
példát az IRO típusú megszakításokra: ezt kiválthatja a 
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VIC 6569 videovezérlő 


és a 
CIA 6526 I/O elemei (a $DCOO-s címen). 


Nem maszkolható megszakítást (NMI) válthat ki pl. a 
CIA 6526 (a $DD00-s címen) 
vagy pl. a 
RESTORE billentyű 
A saját megszakítások programozásához elengedhetetlenül fontos, hogy is- 
merjük az [I/O elemek tulajdonságait, lehetőségeit. Ezekre olyan mélységig 


térünk most ki, amennyire a későbbi programokhoz szükséges. Bővebb leírást 
talál az Olvasó a , A Commodore 64-es belső felépítése" c. könyvben. 
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2.2 A CIA 6526-OS PROCESSZOR 


A CIA (Complex Interface Adapter) 6526-os a 65XX-es processzorcsalád egy I/O 
eleme, amely egy soros 8 bites regisztert, két kaszkádolható 16 bites számlálót 
(timert), egy valós idejű órát és egy diverse vezérlővonalat tartalmaz. 

A CIA további 16 regiszterét a processzor átmeneti tárolóként használhatja. 
A Commodore-ban két ilyen [I/O elem található, az egyik a $DCOO-s címtől a 
$DCOF címig, a másik pedig a $DD00-tól a $DDOF-ig terjedő tárterületet foglalja 


el. 


A következő oldalakon ismertetjük a 16 vezérlőregiszter funkcióját. 


A vezérlőregiszterek leírása 


0. regiszter 


1. regiszter 


2. regiszter 


3. regiszter 


4. regiszter 


5. regiszter 
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A port 
Hozzáférés: READ/WRITE 
A regiszter tartalma az A (I/O port állapotát tükrözi. 


B pont 
Hozzáférés: READ/WRITE 
A regiszter tartalma a B (I/O) port állapotát tükrözi. 


A adatirányregiszter 

Hozzáférés: READ/WRITE 

Ezzel a regiszterrel az A port mind a 8 vonalát bevitel- 
re, ill. kihozatalra kapcsolhatjuk. A kapcsoláshoz a 
regiszter megfelelő bitjét 0-ra (bevitel) vagy 1-re (kiho- 
zatal) kell állítani. 


B adatirányregiszter 

Hozzáférés: READ/WRITE 

A regiszter feladata azonos a 2. regiszter feladatával 
a B portra vonatkoztatva. 


A számláló alsó byte 

Hozzáférés: READ 

Olvasásnál a regiszter tartalma az A számláló pillanat- 
nyi értékének alsó byte-ját adja vissza. 

Hozzáférés: WRITE 

Írásnál megadhatjuk annak az értéknek az alsó byte- 
ját, amelyről a számláló nullára visszaszámlál. 


A számlóló felső byte 

Hozzáférés: READ 

Visszakapjuk az A számláló pillanatnyi értékének alsó 
byte-ját 

Hozzáférés: WRITE 


6. regiszter 


7. regiszter 


8. regiszter 


9. regiszter 


10.regiszter 


11. regiszter 


Író utasítással megadhatjuk annak az értéknek a felső 
byte-ját, amelyről az A számláló nullára visszaszámlál 


B számláló alsó byte 
Ua. mint a 4. regiszter a B számlálóra vonatkoztatva. 


B számláló felső byte 
Ua. mint az 5. regiszter a B számlálóra vonatkoztatva 


A valós idejű óra (time of day) tizedmásodpercei 
Hozzáférés: READ 

Olvasásnál a O0-tól 3-ig terjedő bitek tartalma visszaad- 
ja a valós idejű óra pillanatnyi értékét tizedmásodper- 
cekben, BCD kódban. A 4-től 7-ig terjedő bitek értéke 
mindig nulla. 

Hozzáférés: WRITE 

Írásnál a B vezérlőregiszter (15.) előzetes beállításá- 
val választhatunk: megadhatjuk az óra aktuális értékét 
tizedmásodpercekben, vagy a riasztás időpontját. 

A 4-től 7-ig terjedő biteket nullára kell állítani, a tized- 
másodperceket pedig BCD formátumban kell megadni. 


A valós idejű óra másodpercei 

Hozzáférés: READ 

Olvasásnál a regiszter tartalma visszaadja az óra Ppil- 
lanatnyi értékét másodpercekben, a 0-tól 3-ig terjedő 
bitek értéke az egyeneseket, a 4-től 7-ig terjedő bitek 
értéke pedig a tízeseket jelenti 

Hozzáférés: WRITE 

Ua. mint a 8. regiszternél. A másodpercek formátuma 
is BCD kód. 


A valós idejű óra percei. 
Ua. mint a 9. regiszternél a percekre vonatkoztatva. 


A valós idejű óra órái 

Hozzáférés: READ 

Olvasásnál visszakapjuk az idő aktuális értékét órá- 
ban. A 0-tól 83-ig terjedő bitek értéke most is az egyese- 
ket jelenti. Mivel az óra legnagyobb értéke 12 lehet, 
a tízesek jelölésére elég egyetlen bit, nevezetesen a 
4. bit. 

A 7. bit az amerikai időnek megfelelően a délelőtt (AM, 
7. bít — 0), ill. délután (PM, 7. bit — 1) jelölésére szol- 
gál. 

Hozzáférés: WRITE 

Ua. mint a fenti regisztereknél, de a biteket az olvasási 
hozzáférésnél leírtak szerint kell kezelni. 


a 


12. regiszter 


13. regiszter 


14. regiszter 


15. regiszter 


02 


Soros eltolási regiszter 
Kiírásnál a soros buszra kerülő, olvasásnál a soros 
buszról érkező adatokat tárolja bitenként. 


Megszakítást vezérlő regiszter 

(Interrupt Control Register) 

Hozzáférés: READ 

0. bit : az A számláló lefutása 

1. bit : a B számláló lefutása 

2. bít : az aktuális idő és a riasztási idő értéke azonos 

3. bit : az eltolási regiszter megtelt (beolvasásnál) 
vagy üres (kiírásnál) 

4. bit : a FLAG lábon impulzus érkezett 

5-6. bit : mindig nulla 

7. bit : értéke 1, ha a megszakítást vezérlő és a meg- 
szakítást maszkoló regiszterek 0-tól 4-ig terjedő 
bitjei közül legalább egy értéke 1. 


Figyelem! Olvasásnál a regiszter tartalma törlődik! 
Hozzáférés: WRITE (Megszakítási maszk) 

A 0O-tól 4-ig terjedő bitek jelentése azonos. Ha ráadásul 
a 7. bit értéke 1, a megszakítást tetszőleges művelet 
számára kihasználhatóvá tehetjük. Ha a 7. bit nulla, a 
megszakítás nem engedélyezett. 


A vezérlő regiszter 

Hozzáférés: READ/WRITE 

0. bit : 0 — A számláló STOP — 1 A számláló START 

1. bit: 1 — az A számláló lefutását jelzi a PB6 

2. bit : 0 — az A számláló minden lefutása előállít egy 

magas impulzust a PB6 lábon. 

1 — az A számláló minden lefutása megfordítja 

a PB6 állapotát. 

3. bit: 1 — az A számláló visszaszámlál a kezdőérték- 
től nulláig, majd leáll (one shot). 
0 - az A számláló minden lefutás után 
automatikusan újraindul. 

4. bit: 1 — az A számláló új értékének betöltése felté- 
tel nélkül 

5. bit: 0 — az A számláló számlálja a rendszerütemet, 
1 — számlálja a CNT ütemet. 

6. bit: 0 — a soros port bemenet, 1 — a soros port 
kimenet. 

7. bit: 0 — a valós óra 60 Hz-cel üzemel 
1 — a valós óra 50 Hz-cel üzemel 


B vezérlő regiszter 
Hozzáférés: READ/WRITE 


0—4. bitek: 


5-6. bitek: 


ASZ ola ti 


Az A vezérlő regiszter bitjeivel azonos je- 
lentésűek a B számlálóra és a PB7-re vo- 
natkoztatva. 

Ezek a bítek határozzák meg a B számláló 
triggerforrását: 

00 — a számláló a rendszerütemet szám- 
lálja, 01 — a számláló a CNT ütemet szám- 
lálja 

10 — a B számláló az A számláló lefutásait 
számlálja 

11 —- a B számláló az A lefutásait számlál- 
ja, ha CNT — 1 

0 — valós idő beállítása. 

1 — riasztási idő beállítása. 


2.3 A RENDSZERMEGSZAKÍTÁSOK FELHASZNÁLÁSA 


A legegyszerűbb megszakító rutin nem tesz egyebet, mint , csatlakozik" a 
rendszermegszakításhoz. 

Mi váltja ki a rendszermegszakítást és milyen célból? 

A rendszermegszakítást a CIA 1 számlálója vezérli. 

A számláló értéke minden gépi ütemben, ami kb. egy mikrosekundum hosszú, 
eggyel csökken. Ha az érték nullára csökkent, a számláló lead egy impulzust 
a processzor IRO bemenetére. 

Az aktuális program megmarad, és a processzor végrehajt egy elágazást a 
$EA31-es címen kezdődő megszakítási rutinba. A számláló két nyolcbites re- 
giszterből áll, így maximum 2" mikrosekundumig, azaz 65 millisekundumig 
képes számlálni. A rendszermegszakítások folyamatosan minden 60-ad má- 
sodpercben (azaz minden 16 millisekundumban) követik egymást. 

Milyen feladatokat lát el a megszakítási rutin? 

Ellenőrzi, hogy a STOP billentyű le van-e nyomva. Ha igen, a nulláslapon beállít 
egy kapcsolót 1-re. A kapcsolót a rendszer minden BASIC utasítás végrehajtá- 
sa előtt megvizsgálja. 

Ha értéke 1, a program futása megszakad. 

A rutin a STOP billentyű lekérdezéséhez a belső órát (TI) megnöveli, amely 
minden hatvanad másodpercben változik. 

A rutin következő feladata a kurzor vizsgálata. Ha a gép parancsmódban 
bevitelre várakozik, a kurzor villog. A kurzor alatti karaktert a rendszer minden 
huszadik megszakítása közben invertálja. A kurzor tehát 60/20 — 3 alkalommal 
villog minden másodpercben. A rutin további feladata a kazettás egység figye- 
lése. Ha a kazettás egység éppen nincs programvezérlés alatt (LOAD, SAVE), 
akkor attól függően, hogy egy bizonyos billentyű az egységen le van nyomva 
vagy nincs, a motort ki-, ill. bekapcsolja. 

A megszakítási rutin utolsó és egyben legfontosabb feladata a billentyűzet 
lekérdezése. Ha egy billentyű le van nyomva, a rendszer átveszi a billentyű 
kódját, és elhelyezi a billentyűzet pufferében. A puffer tíz karakter hosszúságú. 
Így lehetséges az, hogy előre leüthetünk olyan billentyűket, amelyek a képer- 
nyőn csak akkor jelennek meg, amikor a program , fogadja" azokat. A pufferben 
elhelyezett karakterek számát a rendszer tárolja. Miután minden feladatot 
elvégzett, a rutinból visszatérünk és a megszakított program végrehajtása 
folytatódik. 

Amint már említettük, a processzor a $FFFE és $FFFF tárcímeiről tölti be a 
megszakítási rutin címét. Ezek a címek a ROM területén találhatók. Hogyan 
lehet megváltoztatni az értéküket? Mi történik a megszakítás után? 

Az a cím, ahová a megszakítási vektor mutat, a $FF48. 


kásás P22. kásásé 

BEEE KE DEE HE HE TEA EE EAT ÉTÉ RE AE Ab 9E-9E HE 46 94-94-96 9f-9É- AE IRO belepesi pont 
FF38B 48 PHA 

FF49 8a TXA 

FF4Aa 48 PHA A ragíszter mantesz 
FF4B 98 TYA 

FF4C 48 PHA 
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FF4D BA TSX 


FF4E BD 94 01 LDA $9194,X A BREAK-kapcsolo beolvasasa a verembol 
FFS1 27 10 AND 4310 es vizsgalata 

FF53 Fo 03 BEA $FF5B Erteke 5 DD? 

FFS5 6C 16 05 JMP ($0316) BRERK-rutin 

FF58 6C 14 03 JMP ($0314) Megszakíto rutin 


Először a regiszterek tartalma a verembe kerül. 

Ekkor a megszakításnál automatikusan , mentett" állatregiszter tartalmát a 
rutin visszatölti, és leválasztja a 4. bitet. Ez a BREAK kapcsoló, amelynek 
értékét a BRK utasítás állítja 1-re. 

A BRK utasítás szoftveresen szimulál egy megszakítást. 

A BREAK kapcsoló alapján a rendszer meg tudja különböztetni ezt a megszakí- 
tást a hardveres megszakítástól. Értékétől függően két indirekt ugrás követke- 
zik. Ha a kapcsoló értéke 1, akkor az ugrási címet a $316/$317 cím, ha értéke 
0, az ugrási címet a $314/$315 cím tartalma szabja meg. 

A $314/$315 vektor a tényleges megszakítási rutinra, azaz a $EA31-es címre 
mutat. 

Ha a megszakítási rutint egy további, saját feladattal kívánjuk felruházni, a 
következőket kell tenni: 

Megváltoztatjuk a vektor tartalmát úgy, hogy az a saját rutinunkra mutasson. 
Ebből a programrészből viszont a valódi megszakítási rutinra térünk vissza, 
hogy az is elvégezhesse a saját feladatait. Ezzel az eljárással egy főprogramtól 
független munkával (JOB-bal) ruháztuk fel a rendszert, amit minden másod- 
percben 60-szor végre kell hajtani. Természetesen ez a rutin nem tarthat 
tovább, mint egyhatvanad másodperc, hiszen egyébként nem marad idő a 
főprogram végrehajtására: Egy hosszú megszakítási rutin jelentősen megnö- 
velheti a főprogram futási idejét. 

Mi az, amit érdemes minden hatvanad másodpercben elvégeztetni a géppel? 
Ezen a téren szinte semmi sem szab határt az Olvasó fantáziájának. 

Például villogtathaijuk a képernyőt, vagy azon egy feliratot éppúgy, mint aho- 
gyan a kurzort a rendszer villogtatja. Természetesen ha nem akarjuk, hogy a 
villogás túl szapora legyen, be kell építenünk a programba egy változót, amely 
figyeli, hogy pl. csak minden 30. végrehajtásnál kerüljön sor a színek kikapcso- 
lására. 


963636 P23. 963 
PROF1I-ASS 64 V2.OD 


1007 Coo9o :DPT F,00 

110 3; 

1201 j Hatter/keret villogtatasa 

130r ; 

1401 Cgoo at $C0O0D0D 

150: ; 

160: DO20 KERET z $DDO20O 3; Kepernyokeret 

170: DO21 HATTER z $D0O21 3; Kepernyohatter 

1801 EA31 IROROUT - $EA31 

1907 0314 IROVEC — $314 

200: ; 

210: 001E szAM — 30 ij Minden fel mp.-ben 

2201 3 

2307 Coo 78 INIT SEI ; A megszakitas letiltasa 
2407 Coo1 Ag OD LDA $(XKVILLOG 

250: Coo3z Ap Co LDY 4$2VILLOG 

260: Coos BD 14 03 STA IRRVEC ; IRO-vektor a villogtato rutinra 
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270: coo8 8C 15 03 STY IROVECTriI 


2801 COOB 58 CLI 

290: CBC 60 RTS 

300: ; 

3101 COOD CE 26 CO VILLOS DEC COUNT ; Szamlalo csokkentese 
320: CGI1O DO 11 BNE KESZ 

330r CO12 A? 1E LDA $SZAM 

340: C9g14 BD 26 CO STA COUNT 3 A szamlalo beallitasa 
350: 3; A szín kícserelese 

360: CO17 AE 21 DO LDX HATTER 

370: CO1A AD 29 DO LDA KERET 

380: C9O1D 8D 21 DO STA HATTER 

390: CO2g BE 29 DO 9TX KERET 

4001 ; 

410: Co23 4C 31 EA KESZ JMP — IROROUT 

4201 ; 

4350: Co26 IE COUNT " BYT SZAM : Szamlalo 

Coo9-Co27 

NO ERRORS 


Elemezzük a programot. Az INIT rutin gondoskodik a kezdőértékek beállításá- 
ról (inicializálásról) és beállítja a megszakítási rutin kezdőcímét úgy, hogy az 
a villogtató rutinra mutasson. A SEI utasítással letiltjuk a megszakítási vektor 
változtatása közben esetlegesen fellépő megszakításokat. Gondoljuk meg 
ugyanis, milyen hibákhoz vezethetne, ha abban a pillanatban lépne fel egy 
megszakítás, amikor a vektor alsó byte-ját már megváltoztattuk, de a felső 
byte-ot még nem. A végrehajtás egy előre meghatározhatatlan helyen folyta- 
tódna, és ez beláthatatlan következményekhez vezetne. Az alsó és felső byte 
megváltoztatása után a CLI utasítással újra engedélyezzük a megszakításokat. 
Ettől kezdve azonban az új megszakítási rutin lesz aktív. 

A következő megszakítás az alábbiak szerint zajlik lez A COUNT változó értéke 
1-gyel csökken. Ha az így kapott érték nem O, akkor a program elágazik a KÉSZ 
címkére és egy normális megszakítást hajt végre. Ha a számláló értéke 0 volt, 
a program ismét 30-at tölt bele. Ekkor felcseréli a keret és a háttér színét, ami 
a képernyőn a villogás hatását kelti. 

A saját gépi kódú rutint a SYS 12:4096 utasítással hívhatjuk. A hívás pillanatától 
kezdve a képernyő minden másodpercben kétszer felvillan. A villogás, azaz a 
megszakítási rutin végrehajtása teljesen független az éppen futó BASIC vagy 
gépi kódú program végrehajtásától. A rendszer ezt a háttértevékenységet 
mindaddig végzi, amíg a megszakítási vektor eredeti értékét vissza nem állít- 
juk, vagy a RUN/STOP — RESTORE billentyűket le nem ütjük. 

A villogás sebességét a SZÁML változó értékének megváltoztatásával szabá- 
lyozhatjuk, ez adja meg ugyanis, hogy hány hatvanad másodperc eltelte után 
cserélje fel a rutin a háttér és a keret színét. 

Második példánkban megváltoztatjuk a kurzor megjelenési formáját. Azt akar- 
juk elérni, hogy a kurzor ne villogjon, hanem helyette a kurzor alatti inverz 
karakter jelenjen meg. A megoldáshoz nem elég az új rutint egyszerűen beil- 
leszteni a megszakítási rutin elé, hanem teljesen ki kell cserélnünk a kurzor 
villogtatását végző rutint. 


944636 P24. Ad 

VALÁL át 49-69 éb 96 AE 94-90 -9E-EB9É AE 96-96-96 96 96-00 Megszakítorutín 

EAJ1 29 EA FF JSR $FFEA STOP-biíllentyu, az ido novelese 
EA34 as CC LDA $CC A kurzor vill. kapcsoloja 

EA36 DO 29 BNE $EA6. Ha nem villog, akkor tovabb 
EA38 C6 CD DEC $CD A szamlalo csokkentese 

EAZA Do 25 BNE $EA51 Nem 0, akkor tovabb 

EAZC A? 14 LDA 4514 A szamlalo z 20 


56 EASE 85 CD STA $CD Tarolas 


EA40 A4 D3 LDY $D3 A kurzor oszlopa 


EA42 44 CF LSR $CF A kapcsolo s 0, C: 1 

EA44 AE 87 02 LDX $0287 A kurzor alatti szín 

EA47 B1 D1 LDA ($D1),Y Karakterkod beallitasa 

EA497 BO 11 BCS $EASC Ha a kapcsolo 5 í, akkor tovabb 
EA4B E6 CF INC $CF A kapcsolo be 

EA4D 85 CE " STA $CE A karakter tarolasa 

EA4F 209 24 EA JSR $EA24 A szin-RAM mutato meghatarozasa 
EA5Z2 Bi F5 LDA ($F3),Y A színkod betoltese, 

EA54 8D 867 02 STA $0287 es tarolasa 

EA57 AE B6 02 LDX $0286 A kurzor alatti szin 

EA5A a5 CE LDA $CE A kurzor alatti karakter 

EA5C 49 80 EOR 45380 Az RVS-bit megfordítasa 

EASE 29 1C EA JSR S$SEAIC A kurzor karakter es a szín beallítasa 


A kurzor villogtatásának folyamata a következő: 
Először megvizsgáljuk, hogy a kurzor aktív-e. Ha nem, akkor a következő 
programrészt átugorjuk. 
Ha a kurzor aktív, akkor a számlálót 1-gyel csökkentjük. Ha a kapott érték nem 
0, akkor a következő programrészt ismét átugorjuk. Egyébként megvizsgáljuk, 
hogy a kurzor éppen inverz fázisban volt-e. Ettől függően a pillanatnyi, vagy 
a korábban tárolt értéket invertáljuk és megjelenítjük. Az utóbbi eljárást megis- 
mételjük a színramban is, a karakter és a kurzor pillanatnyi színével. 
Az alábbi program lefuttatása után a képernyőn nem villogó, hanem álló 
kurzort láthatunk. 

4. P25. dt ét 

PROFI-ASS 64 V2.0o 


100: Coo .:OPT P,O00 

110: ; 

120: 1 A kurzor modositasa 

1301 s 

140: FFEA STOP m $FFEA 3; A STOP billentyu lekerdezese 
150: ooCC CURSFLAG z $CC j A lathato kurzor kapcsoloja 
160: BOCF INVERS sz $CF ; Az inverz karakter kapcsoloja 
170: 9287 CURSCOL — $4287 j A kurzor alatti szin 

180: DOCE CURSCHAL  - $CE 3 A kurzor alatti karakter 
1908: 00D1 CHAR - $D1 3 Mutato a videoramban 

200: BOF3 COLOR kai 3FI3 3 Mutato a szinramban 

210: EA24 SETCOL — $EA24 1 A színram mutatoja 

220: ooD3 SPALTE z $D3 1 A kurzor oszlopa 

2301 0286 COLSTR m $286 ; A kurzor szine 

2401 0314 IROVEC — $314 ; IROa-vektor 

250: EA6l CONTIRA - $BA6G1 j Az IRO vegrehajtasa 

260: Hi 

2701 Coo 78 INIT SEI I; A megszakitas letiltasi 

280: CoG1 AY OD LDA  $(NEWCURS 

2901 Coo3 AD CO LDY $2NEWCURS 

300: ceos 8D 14 03 STA IRGOVEC 3; IRO2a-vektor az uj rutinra 
310: coo8 8C 15 03 STY IRROVECt1i 

320: COOB 58 CLI 

3501 CoOC 60 RTS 

J40: ; 

I50: COOD 29 EA FF NEWCURS JSR STOP j A STOP billentyu vizsgalata 
3601 coio aS5 CC LDA CURSFLAG 3; A kurzor lathato ? 

5370: Co12 DO 1D BNE  NOCURSOR 3; Nem 

380: Co14 A4 DS LDY SPALTE 3; A kurzor oszlopa 

a90: Co16 A5 CF LDA  INVERS j A karaktert invertaltuk ? 
400: CgI8B DO 17 BNE  NOCURSOR ; Igen 

4101 CO1A E6 CF j INC INVERS j Kapcsolo az invertalasra 
4201 Co1C 209 24 ER JSR . SETCOL ; Mutato a szinramban 

4301 COIF Bi Di LDA (CHARI,Y ; A kurzorpozíicio karakterenek 
430: Cco2i 85 CE STA CURSCHAR 3; tarolasa 

4401 Co23 49 80 EOR $W$8O z; Az RVS bit megfordítasa es a 
4501 Ca25 91 Di sSTA (CHAR),Y ;§ szín tarolasa a videoramban 
460: CO27 Bi F3 LDA (COLOR), ,Y 
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460: Co29 gp 87 02 STA CURSCOL 


4701 CO2ZC AD 86 02 LDA COLSTR 3 A kurzor szinenek 
480: CO2F 91 F5 STA (COLOR) ,Y ; beallítasa 

4905 CO31 4C€ 61 EA NOCURSOR JMP CONTIRA ; Az IRO vegrehajtasa 
1Cc000—COZ34 

NO ERRORS 


Ha a rutint a SYS 1254096 utasítással aktivizáljuk, a kurzor helyén egy inverz 
karaktert látunk. 

A kész rutint alakíthatjuk úgy, hogy az saját elképzelésünk szerint működjön; 
pl. a karakter a kurzor színe helyett fehér színű legyen. Megoldhatjuk pl. azt 
is, hogy a kurzor karakterét ne az invertálás, hanem egy aláhúzás, vagy egy 
másik szín különböztesse meg a többi karaktertől. 

Persze ez a rutin igen egyszerű alkalmazása a megszakítási rutinnak, amelyet 
azzal a szándékkal ismertettünk, hogy felkeltse az Olvasó érdeklődését, és 
további ötletek megvalósítására sarkallja. 

Röviden még egy felhasználási lehetőséget említünk; a STOP billentyű letiltá- 
sának módját. 

Emlékezzünk viszont arra, hogy a STOP billentyűt a megszakítási rutin közvet- 
lenül hívása után megvizsgálja — ez a rutin által végrehajtandó első feladat. 
Ha a beugrási címet úgy módosítjuk, hogy az a lekérdezést követő első utasí- 
tásra mutasson, akkor az éppen futó program futását nem lehet a STOP billen- 
tyűvel megállítani. A megoldás nagyon egyszerű: i 


POKE 788, PEEK(788) 1-3 


A megszakítási vektor címének alsó byte-ját 3-mal megnöveltük, így a megsza- 
kítás során a STOP billentyű lekérdezése elmarad. 

A módszer hátránya, hogy ilyenkor a belső óra, azaz a TI és TI$ változók értéke 
nem módosul. 

A továbbszámlálást ugyanis szintén a programrész végezné el. 

A rendszermegszakítások egy további hasznos alkalmazása az egyes billen- 
tyűk programozása. Egy-egy billentyűhöz tetszőleges feladatot rendelhetünk, 
például egy funkcióbillentyű kiválthat egy hardcopy-t, azaz a képernyő tartal- 
mának kinyomtatását. 

A billentyűket nagyon egyszerűen felruházhatjuk speciális feladatokkal. Min- 
dössze annyit kell tennünk, hogy a megszakítási rutinban lekérdezzük a billen- 
tyű állapotát, és ha az le van nyomva, végrehajtjuk a kérdéses műveletet. 
A lehetőségek száma szinte végtelen. Gyakran van szükségünk például arra, 
hogy az egyes képernyőoldalak között lapozgassunk. 

Írjuk meg azt a programot, amely lehetővé teszi, hogy egy billentyű lenyomásá- 
val átkapcsoljunk az aktuálisról egy másik képernyőlapra. 


94 at P246. db tt 


PROF1-ASS 63 V2.0 


100: OZZC -: OFT F1,00 

110: Hi 

120: ; A kepernyolap bekapcsolasa 

130: FH 

140: 0003 ENTI1 z b.) 

150: 505 PNT2 —- ke 

160: DDOD VIDEOMAP 7 $DDO0O ; 16K viídeo-terulet 
170: 0288 VIDEOPGE  -— 648 

180: 0314 IREVEC z $3514 

190: ÉARZ31 IROALT z $EAZ1 

2007 D000 CHARGEN - $DO00O : A karaktergenerator 
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210: DBO0 COLOR z $DBDD ; A szinram 

220: Coo0 COLORZ2 z $CODO :;: A szinram címe 

250: D001 PORT - 1 3; A processzor port 
240: o28D CTRL z 655 3; CONTROL kapcsolo 

250: [//olotai KEY had 303 ; Az utolso billentyu 
260: 0004 Fi m a : Az F1 billentyu matrixszama 
270: ; 

2BO: O33IC az 8B2B 

29087 ; 

300: SIC 78 INIT SEI j 

310: o33D 29 94 053 JSR  SETCHAR ; A karaktergenerator masolasa 
320: 5340 A? 4C LDA 6WHK£K TEST 

330 0342 ap 03 EDY...- 43. TEST 

340: 0343 8D 14 03 STA  IROVEC ; Mutato az uj rutinra 
3507 03547 8C 15 05 STY IROVECH1 

3601 033Aa 58 CLI- 

370r1 0OZ3B 60 RTS 

53801: ; 

590£ 0384C AD 8D 02 TEST LDA CTRL 3 A CONTROL le van nyomva ? 
400: 034F 29 04 AND — $7/100 

410: 0Z51 FO 09 BEG NOSWITCH ; Nem 

320: O3SI A5 CS LDA KEY ; F1 le van nyomva ? 
430: ozss cg 03 CMP FI 

43801 0357 Do 03 BNE  NOSWITCH ; Nem 

450: 0359 29 5F 05 JSR SWITCH ; Az oldal felcserelese 
4601 OZSC 4C€ 31 EA NOSWITCH JMP IRGALT 

470: ; 

4BO: OZ3SF AD 00 SWITCH LDY 40 

490: os61 84 03 STY. PNTI 

490: 0363 84 05 STY PNTZ2 

500: 0365 A9 D8 LDA $OXCOLOR 3 Mutato a szinramban 
500: 0367 85 04 STA PNT1-1 

5101 0569 A9 CD LDA $§2COLOR2 ; A szín tarcime 

510: 036B 85 06 STA PNT2-41 

520: OZ36D AZ 04 LDX 4834 ; A lapok szama 

SZO: 036F Bi 03 SWAP LDA (PNT12) ,Y 

540: 0371 48 PHA 

S5SOr 0372 Bi 05 LDA  (PNT2),Y 

560: 0374 91 05 STA, (PNT1),Y ; A szín tarcimenek csereje 
570: 0376 68 PLA 

580 0377 91 05 STA (PNT2) ,Y 

599: 9379 Cs INY 

600: 037A DO F3 BNE SWAP 

610: 037C E6 034 INC PNTI-tI 

6201 0389 Ca DEX J] A kovetkezo oldal 
$301 0381 DO EC BNE  8WAP 

6401 0I8IZ AD 08 DD LDA VIDEOMAP 

6501 os86 39 03 EOR $/11 1 A VIC hozzaferesi címe 
660: 0388 BD 99 DD STA VIDEDMAP 

670: GZBB AD 88 02 LDA VIDEOPGE 

680: BDZBE 49 CO EOR 4$43CO 3 Kepernyolap 

6901 0390 aD 88 02 STA VIDEOPGE 

7005 DII 60 RTS 

710: Hi 

720: 0394 AD 09 SETCHAR LDY 90 

730r 0396 394 03 STY PNTI 

780: 09398 A? DO LDA §2 CHARBEN 

7501 oz9a e5 04 STA PNT1I-1 

7601 2IZ9C AZ 19 LDX 4$$ií0 

7701 039E A9 3I LOOP LDA 84$53 

7805: ozAg SZ 01 STA PORT 13 Karaktergenerator bekapcsolasa 
790r O3A2 B1 03 LDA (PNT19),Y 

800: O0ZAS 38 PHA 

810: osAaS Ag 30 LDA 949350 

8201 03A7 85 21 STA PORT 3 A RAM bekapcsoclasa 
as30: DSAY 68 PLA 

840: ozAaR 91 03 STA (PNT1),Y 

850: OSAC CS INY 

8605: OZAD DB EF " BNE LDOP 

870: DZAF ES 324 INC PNT1-41 ; A kovetkezo oldal 
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BBO: OSB1 CA DEX 


890: 0OS3B2 DO EA BNE LOOP 

990: 03B4 AS 37 LDA 4$$57 3; Alapallapot 
9101 0sBó 85 01 STA PORT 

9201 o3B8 60 RTS 

JO33C-03B9 

NO ERRORS 


A programban két képernyőoldalt váltogatunk. Az első lap a megszokott helyén 
a $0400-as, a másik pedig a $C400-as címen kezdődik. 

Az is megoldható, hogy a második lapon egy sprite-ot aktivizáljunk. A sprite-ok 
mutatóit a $C7F8-as címtől kezdve kell tárolni, és a $C000-s báziscímre vonat- 
koztatni. 

A sprite-okat elhelyezhetjük pl. a $C800-tól a $CFFF-ig terjedő tárterületen, 
amely 32 különböző sprite-minta tárolására elegendő (32-től 63-ig). Mivel a 
videovezérlő a színramot mindig azonos kezdőcímen, a $D800-as címen keresi, 
tároljuk a színeket az éppen nem látható lapon, a $C000-tól $C3FF-ig terjedő 
tárterületen. Ügyelnünk kell arra is, hogy a felső 16 K területen ($C000-$FFFF) 
a VIC nem tudja elérni a karaktergenerátort. Ezért a karaktergenerátort a 
program indításakor átmásoljuk a ROM-ból az ugyanazon a tárterületen levő 
RAM-ba. 

A megszakítási rutin a CONTROL billentyűt a kapcsoló 2. bítjének vizsgálatával 
teszteli. Ha a biít értéke 1, a billentyű le van nyomva. Ha ezen kívül az F1 
billentyűt is lenyomva találja, meghívja azt a rutint, amely kicseréli a színtárat 
és átállítja a mindenkori (látható) képernyőlap mutatóját. Végül elágazik a 
valódi megszakítási rutinba. Ha a programot lefordítjuk (assembláljuk), és SYS 
828 utasítással elindítjuk, a CONTROL és az F1 billentyű együttes lenyomásával 
képernyőlapot válthatunk. A legelső aktivizáláskor törölni kell a képernyő 
tartalmát, nehogy határozatlan értékek maradjanak a videotárban. A billentyűk 
ismételt lenyomásával mindig az eredeti képernyőre ugorhatunk vissza. A kur- 
zor a képernyőváltás közben a helyén marad. 

További alkalmazási feladat az óra mindenkori értékének kijelzése. A megsza- 
kítási rutinba építve ezt a funkciót, az óra az éppen futó program végrehajtásá- 
tól függetlenül mindig látható a képernyőn. Hasonló megoldással már találkoz- 
hatott az Olvasó a , Tippek és trükkök a Commodore 64-eshez" c. könyvben. 


Nagyon sok érdekes alkalmazást kínálnak a megszakítások felhasználásában 
a sprite-ok. Minden megszakítás közben mozgathatunk a képernyőn egy vagy 
több sprite-ot. Hasonló lehetőségek adódnak a hangvezérlés területén. A meg- 
szakításokba beépítve különböző hanghatásokat idézhetünk elő, dallamokat 
szólaltathatunk rneg a program futása közben. 

A lehetőségek száma valóban korlátlan. Szaporítsuk az eddigi példák sorát 
még két rutinnal. 

Ha az alapgéphez a user porton keresztül egy külső készüléket csatlakozta- 
tunk, hasznos lehet a következő program, amelyet ismét a megszakítási rutin- 
hoz fűztünk. A program kiírja a képernyőre a user port egyes bitjeinek aktuális 
értékét. Az első képernyősorban kiírtuk az adatirányregiszter tartalmát 

A képernyőről rinden pilianatban leolvashatjuk, hogy a port egyes vonalai 
bemenetre (0), vagy kimenetre (1) vannak kapcsolva. A következő sor tartalma 
a user port vonalainak állapotáról tájékoztat, a 0 az alacsony, ez íÍ a magas 
jelszíntei jelzi. Mindkét sor tarialmát kiírjuk hexadecimális aiakban is. 
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9044-00 


1001 
1101 

1201 
1301 
1491 
150: 
1601 
1701 
1807 
190: 
2001 
2101 
2201 
2301 
2401 
2581 
2601 
270: 
2BO: 
2901 
I001 
3191 
320: 
IS301 
J40: 
3501 
560: 
5370: 
3807 
3901 
4001 
410: 
420: 
430: 
440: 
4501 
460: 
4701 
4801 
4901 
500: 
5101 
520: 
530: 
540: 
5521 
S60: 
5701 
5BOD: 
5901 
6001 
6101 
6201 
630r 
6401 
650: 
660: 
670£ 
6859r 
6901 
730: 
710: 
720: 
730s 
74831 
750 


P27. 
PROFI-ASS 64 V2.O 


[/5x10i 


kásás 


as 


[3 
[53 


03 


02 


DD 


03 
DD 


os 


EA 


D8 


.OPT P1,00 


j 
; Az USER-PORT kijelzese 


; 
CIAZ z 


USERPORT  z 
FELSOSOR s 


; 

VIDEOPGE ma 
COLORRAM  z 
: 

SZIN 

1 
IROGVEC m 
IROALT z 
PNT z 
, 


u 


esz 
INIT SEI 
LDA 
EOR 
STA 
LDA 
EDR 
sra 
ELI 
RTS 
KIIRAS LDA 
PHA 
LDA 
PHA 
LDA 
sTa 
LDA 
sSTA 
LDA 
LDY 
I5R 
LDA 
LDY 
JSR 
PLA 
sTa 
PLA 
sra 
MP 
s 
DISPLAY PHA 
LDX 
LOOP ASL 
PHA 
LDA 
ECC 
LDA 
NULL sSTaA 
LDAa 
sra 
INY 
FLA 
DEX 
BENE 
; 
4 Hcekaszam 


; 
INY 


$DD90 
CIAZ2ti1 
CIA243 


648 
$D800 


828 


IROVEC 

$Cc IRODALT 7 
IROVEC 
IRGVECt1 

42 IRODALT 7 
IROVECt 1 


PNT 
PNT61 


$28 

PNT ; 
VIDEOPGE 
PNT-r1 
FELSOSOR 
wo ; 
DISPLAY , 
USERPORT 
440 ; 
DISPLAY 


PNT-6r1 Hi 


PFNT 
IROALT 


sa. 


wa 


een j 
NULL 

"1. j 
(PNT) ,Y 
$SZIN , 


COLORRAM--28 , 


: 
LOOP 


Sarga 


KIIRAS 


KIIRAS 


A mutato tarolasa 


Mutato a videoramban 


A felso sor 
kí jelzese 


Az utolso sor 
kijelzese ( USER-PORT ) 


A mutato visszatoltese 


Vissza az eredeti IRO-hoz 
A hsxadecimalis kijelzes 
A felso bít a CARRY-be 

A B kiírása, 


ha Cs1, akkor 1 kiírása 


es a szin beallítasza 
Y 


Kovetkezo bit 
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76031 038F 68 PLA 


7701 0399 48 PHA 
780: 0391 4A LSR 
7801 0392 4A LSR ; A felso fel-byte eldobasa 
780: 0393 4A LSR 
780: 0394 4Aa LSR 
7907 2395 29 99 03 JSR ASCII 3; A felso fel-byte es 
8001 o3z98 68 PLA 3 az also fel-byte 
8191 0399 29 OF ASCII AND $/1111 
B291 039B C? AO CMP $IO 
8391 039D 90 02 BCC KISEBB 
8491 O3I9F 69 06 ADC 46 
850 g3A1 69 30 KISEBB ADC $"0" z; Atvaltas ASCII-ba 
8601 o3A3 29 3F AND ú/111111 ; Atvaltas kepernyokodra 
8701 O3AS5 91 FB STA (PNT),Y 
8801 0347 A9 07 LDA 8SZIN ; es a szín beallitasa 
8991 03A9 99 1C DB STA  COLORRAM-I28,Y 
990£ OZ3AC CB INY 
9101 OZAD 60 RTS 
033C-OZAE 
NO ERRORS 


A kezdőértékek beállítása (inicializálás) a korábbiaktól kicsit eltér. Az IRO 

vektor régi és új tartalma között végrehajtunk egy megengedő vagy logikai 

műveletet, ezzel elérjük, hogy minden SYS 828 utasítás kiváltson egy átkapcso- 

lást a régi és az új megszakiítási rutin között (a régi rutin kezdőcíme: $EA31, 

az új rutin kezdőcíme: KIJELZES). 

Ha a kijelzést már nem akarjuk tovább folytatni, a SYS 828 utasítással visszaál- 
líthatjuk a megszakítási vektor kezdőcímét $EA31-re. 

A program maga is tartalmaz egy főprogram részt, amely induláskor a fontos 

tárcímek tartalmát a verembe helyezi, így ezeket egy másik program is felhasz- 

nálhatja. Ezután a PNT mutatóit az első sor 28-ik oszlopára állítjuk, betöltjük 
az adatregiszter tartalmát és meghívjuk a kiíró rutint. Kiírás után az Y regiszter 
tartalmát megnöveljük 40-nel, így a következő kiírás egy sorral lejjebb kezdő- 

dik. 

Most kiírjuk a user port tartalmát. Végül a mutatókat újra visszaolvassuk és 

ugrunk az eredeti megszakítási rutinba. kt 
A program az akkumulátor tartalmát egyszer bináris, egyszer pedig hexadeci- 
mális alakban írja ki. A bináris alakot egy nyolc lépéses ciklusban határozzuk 
meg. 

Minden lépésben leválasztjuk a mindenkori legfelső bitet, azaz az ASL utasítás- 
sal áttöltjük az átviteli (carry) kapcsolóba. Ha a bit értéke 1 volt, akkor a 
C kapcsoló értéke is 1, tehát ez kerül a képernyőre, egyébként pedig 0. 

A bináris kiírás után az eredeti értéket a veremből visszatöltjük, és kiírjuk 
hexadecimális alakban is. Ehhez először eltoljuk a felső félbyte-ot négy bittel 

jobbra, a kapott érték ASCII kódja alapján az eredményt kiírjuk a képernyőre. 
Ugyanezt végrehajtjuk az alsó félbyte-tal is. 

Ha a rutint SYS 828 utasítással elindítjuk, a képernyőn az alábbiak jelennek 
meg: 


00000000 00 
TETTETETT EP 


A kiírás a bekapcsolás utáni állapotot mutatja. Ha a user portot bemenetre 
kapcsoljuk, a nyitott bemeneti lábak magas jelszintet közvetítenek. 
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Kapcsoljuk a user portot kimenetre, és írjunk bele 100-at. 


POKE 56579, 255 
POKE 56577, 100 


Most a képernyő tartalma a következő: 


1 íg En A ta bes fáj ha 3 ha aj 
01100100 64 


A 2-es, 5-ös és 6-os bitek tartalma 1, így a hexadecimális számérték $64. 

A következő rutin is az előzőhöz hasonlóan működik. 

Minden pillanatban tájékoztat bennünket arról, hogy mennyi szabad tárterület 
áll még a rendelkezésünkre. 

Minden megszakítási lépésben végrehajtjuk a FRE műveletet, azaz meghatá- 
rozzuk a tömbváltozók vége és a karakteres változók kezdete közötti tárterület 
nagyságát. 

Ellentétben a FRE függvénnyel, a megszakítási rutinban nem végzünk , nagyta- 
karítást", azaz nem ugrunk a Garbage Collect rendszerrutinra. Ez egyrészt 
nagyon hosszadalmas lenne, másrészt meghamisítaná a valós helyzetet. 

Ha a szabad tárkapacitást decimális alakban szeretnénk kiírni, az adott értéket 
először lebegőpontos számmá, majd ASCII formátumúvá kellene alakítanunk. 
Az ilyen eljárás alapvető hátránya az lenne, hogy a kezelt tárcím tartalmát 
átmenetileg mindig tárolnunk kellene a veremben, hiszen a BASIC program 
futása bármikor megszakadhat. Ez legalább 20 tárcím tartalmának állandó 
mentését jelentené, ami egyrészt idő-, másrészt helypazarlás, és az sem 
biztos, hogy ennyi szabad hely egyáltalán rendelkezésünkre áll a veremben. 
Ezért a szabad tárkapacitást célszerűbb hexadecimális alakban kiírni. A kiírás 
így is értelmes, a megoldás pedig jóval gyorsabb. 


4644 at P28. 4446-4é 


PROFI-ASS 64 V2.0 


1001 [/5A10] :OPT P,Oo0 
110: ; 

1202 3 A szabad tarkapacitas kíjelzesze 
1501 ; 

140: 090I1 ARRAYEND  - $51 

150: 0033 STRGSTRT zs $53 

1601 s 

1701 04900 VIDEO - 1024 
1801 D800 COLOR - $D800 
1992 ; 

2001 090907 SZIN - TA 3; Sarga 
2101 z 

2201 05314 IROVEC kal $314 
250: EA31 IRGALT z— $EAZ1 
240: $ 

250: o33cC INIT hám 828 

260: 033C 78 SEI 

270: OSZD A9 49 LDA HC FREE 
280: OSZF Ag 03 LDY 42 FREE 
290: 0341 B8D 14 05 STA IROGVEC 
I00: 0344 8C 15 03 STY IROŐVECtI 
310z 0347 58 CLI 

3201 0348 60 RTS 

I30: 


A 63 
3401 0349 38B FREE SEC 


350: os4Aa AS 33 LDA STRGSTRT 


560: 0S4C ES 31 SBC  ARRAYEND 
370: 034E 08 PHA j 

580: 034F AD 25 LDY 857 
390: 0351 209 61 03 JSR KIIRAS 
400: 0354 28 PP 
4101 ozss as 34 LDA STROSTRTt1 
420: 0357 E5 52 SBC ARRAYENDt1 
4501 o359 Ag 23 LDY 4655 

4840: 0O35B 29 61 03 JSR KIIRAS 
4501 035E 4C 51 EA JMP  IRDALT 
4701 0361 48 KIIRAS PHA 
480: 0362 4A LSR 

480: 0363 4A L8R 
4891 09364 4A LSR 

480: 0365 4A LSR 
4901 0366 20 6A 03 JSR ASCII 
500: 0369 68 PLA 
510: 036A 29 OF ASCII AND 8/1111 
520: 036C CY 0A CMP  $IOD 
5301 036E 99 02 BCC KISEBB 
540: 0370 69 06 ADC Hó 
5501 0372 69 30 KISEBB ADC. 4"0" 
560: 0374 29 SF AND 4$7/111111 
370: 0376 99 00 04 STA VIDEO,Y 
580: 0379 A? 07 LDA $SZIN 
590: 037B 99 00 DB STA COLOR,Y 
600: 037E CB INY 
610: 0I7F 60 RTS 

033C€-05380 
NO ERRORS 


A rutin elindítása után (SYS 828) a képernyőn állandóan látható a szabad 
tárkapacitás. 
Próbáljuk ki azt a következő BASIC programmal: 


944416 P29. 4444 46 


100 DIM A$(200) 
119 FOR Imi TO 298 e AS(I)sCHR$(I) : NEXT 


A képernyőn megjelenik a rendelkezésre álló tárterület hexadecimális értéke. 
Írjuk be most a ? FRE (0) utasítást. Kb. 4 másodpercet igényel a függvény 
értékének kiszámítása, miközben a képernyőn állandóan figyelhetjük, hogy 
hogyan változik a szabad tárkapacitás. 

Ha az Olvasó a PROFI-ASS 64 programmal dolgozik, előzetesen elindítva a 
P.28-as gépi kódú rutint, az első menetben (PASS 1) megfigyelheti, hogy a 
fordítóprogram hogyan építi fel a szimbólumtáblázatot, ugyanis a BASIC prog- 
ram és a fordító azonos tármutatókat használ. 
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2.4 A VIDEOVEZÉRLŐ MEGSZAKÍTÁSAI 


Miután megismerkedtünk a számlálók által vezérelt rendszermegszakítással 
és láttuk ennek gazdag felhasználási lehetőségeit, nézzük meg, hogyan lehet 
programból megszakításokat előidézni. 

Mielőtt a feladat megoldásához hozzákezdünk, érdemes megvizsgálni, hogy 
hogyan dolgoznak azok a chipek, amelyek képesek rendszermegszakítást 
kiváltani. 

A 6526-os chipek kiválthatnak rendszermegszakításokat, a CIA 1 az IRO vona- 
lon, a CIA 2 pedig az NMI vonalon keresztül. A 6569-es videovezérlő is rendel- 
kezik ezzel a tulajdonsággal. A megszakítások kezelése az alábbi regiszterek 
feladata: 


18. regiszter Hozzáférés: READ 
Olvasásnál a regiszterből megkapjuk annak a raszter- 
sornak a számát, amelynek kijelzése éppen folyamat- 
ban van. 
Íráskor megadhatjuk azt a rasztersort, amelynek kijel- 
zése közben a VIC IRO megszakítást vált ki. 


25. regiszter Interrupt Reguest Register 
Ez a regiszter jelzi a VIC megszakítási kérelmét. Az 
egyes bitek tartalma utal a megszakítási kérelem for- 
rására. 
0. bit A vezérlő felírja a 18-as regiszterben megadott 
rasztersort. 
1. bit Egy sprite megérintett egy háttérkaraktert. 
A sprite száma a 31-es regiszterben található. 
2. bit Két sprite ütközött egymással. 
A sprite-ok címe a 30-as regiszterben található. 
3. bit A fényceruza (lightpen) 
STROBE megszakítást váltott ki. A képernyő po- 
zíció X- és Y-koordinátái a 19-es és a 20-as re- 
giszterben találhatók. 
7. bit Értéke mindig egy másik bit értékével együtt vál- 
tozik. 


26. regiszter Interrupt Mask Register 
A regiszter bitjeinek jelentése azonos a 25-ös regiszter 
bitjeinek jelentésével. 
A megszakítás engedélyezett, ha az IMR megfelelő 


bitje 1. 

30. regiszter Sprite — sprite ütközés 
Ha két sprite ütközik, akkor a regiszterben a nekik 
megfelelő bit, ill. a 25-ös regiszter 2. bitje 1 lesz. 
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31. regiszter Sprite — háttér ütközés 
Ha egy sprite ütközik egy háttérkarakterrel, akkor a 
sprite-nak megfelelő bit értéke a 31-es regiszterben és 
az 1. bit értéke a 25-ös regiszterben 1-re változik. 


A videovezérlő álta! kiváltott megszakítások típusai: 


Rasztersor 
Sprite — háttér ütközés 
Sprite — sprite ütközés 
Fényceruza 


A vezérlő a 25-ös regiszter tartalma alapján értesül arról, hogy fellépett-e a 
négy kiváltó ok valamelyike? 

Hogy az esemény megszakítás-kérelemhez vezethet-e, azt az Interrupt Mask 
Register tartalma dönti el. A megszakítás csak abban az esetben jöhet szóba, 
ha az IMR első bitje 1 értékű. A közönséges RAM címekkel szemben az IMR 
tartalmát nem lehet a szokott módon sem beolvasni, sem felülírni. A megszakí- 
tás engedélyezését jelző biteket a következőképpen lehet törölni, ill. beállítani: 


Egy bit beállítása 


A fentiek szerint a megszakítás a rendszer az IMR első (azaz 7-es sorszámú) 
ill. az eseményhez hozzárendelt bit értéke alapján engedélyezi. Ha pl. a meg- 
szakítást sprite — sprite ütközés váltotta ki, akkor ezt a 2. bit 1 értéke jelzi. 


46-14 46 P29/1. LáAd 


LDA 4X19904108 
STA IMR 


A fenti utasításpár hatása megfelel az elvárásoknak, a megfelelő bitek értéke 
1 lesz, a 0 bitek értéke pedig nem változik. 


Egy bit törlése 


Ha szeretnénk egy megszakítási típust letiltani, akkor az eseményhez rendelt 
bit értékét ismét 1-re, de az engedélyezést jelző bitet 0-ra kell állítani. 
464644 P50. LácAuh 


LDA 47/00000100, 
STA IMR 


A bitek értéke ismét nem változik. Az IMR tartalmát nem lehet programból 
olvasni. Ha a megszakítási maszk ismeretére mégis szükségünk van, nincs 
más megoldás, mint az, hogy egy tárcím tartalmát a RAM-ban vele párhuzamo- 
san változtatjuk, így az mindig az IMR tartalmát tükrözi. 

A videovezérlő megszakításainak másik sajátossága, a , megszakítási kérelem 
regiszter" (Interrupt Reguest Register) kezelése. 
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Valahányszor lezajlott egy megszakítás, az IRR eredeti állapotát vissza kell 
állítanunk, ellenkező esetben ugyanis visszatérve a megszakítási rutinból, 
azonnal kiváltódna egy újabb (nem tervezett) megszakítás. Az 1 értékű bitet 
most is az előző módszerrel törölhetjük. A legegyszerűbb, ha az IRR tartalmát 
beolvassuk, és azonnal vissza is írjuk. 


LA P31. 5. 


LDA IRR 
STA IRR 


Mivel a bitminta az akkumulátorban van, maszkolással vizsgálhatjuk az egyes 
biteket. Erre minden olyan esetben szükség van, amikor egyszerre több meg- 
szakítási forrás aktív, például a számláló réndszermegszakítása, és valame- 
lyik, a videovezérlő által generált megszakítás. Mindkét megszakítás azonos 
vektort használ, így elágazás előtt el kell dönteni, hogy mi volt a megszakítás 
forrása, és az elágazást a forrás alapján kell végrehajtani. Ha a fentiek némileg 
bonyolultnak tűnnének az Olvasó számára, egy példa elemzése biztosan segit 
a tájékozódásban: 

Tegyük fel, hogy egy rasztermegszakítást akarunk előidézni annak érdekében, 
hogy a képernyőn egyszerre 16 sprite-ot tudjunk ábrázolni. A videovezérlő csak 
8 sprite egyidejű kezelésére van felkészítve, a feladatot tehát csak úgy tudjuk 
megoldani, ha egy ügyes trükkel 8-8 sprite-ot jelenítünk meg egymás után. 


A folyamat a következő: 
A képernyő felső felén ábrázolunk 8 sprite-ot. 
Miután a videovezérlő előállította a képernyő felső felét, kiváltunk egy megsza- 
kítást. A megszakítási rutindoan beállítjuk annak a 8 sprite-nak a paramétereit, 
amelyeket a képernyő alsó felén szeretnénk láthatóvá tenni. Ezzel egyidejűleg 
előkészítettünk egy újabb megszakítást, amellyel visszakapcsolunk az eredeti 
8 sprite-ra. 

9644-it P32. 444646 


PROF1I-ASS 64 4W2.O0 


1001: esze :OPT P,O0 

110: 3 

1207 ; Rasztermegszakito 

1501 ; 

1491 Do00o VIC z $D000 ; Videovezerlo 

159: D001 SPRITEY : VICt1 ; Sprite Y-koordínata 
1601 DO12 RASTER kai VICr18 ; Rasztersor 

1701 DO19 IRR - VICt2S5 ; Interrupt reguest regiszter 
1801 Do1Aa IMR a VICr26 3; Interrupt maszk regiszter 
190: 9064 SORI m 109 3 Elso sor 

2021 gocs SORZ2 sz 209 ; Masodik sor 

202: o005Aa YKOORD1 a 70 3; Eluo Y-koordínata 
2031 20929 YKOORD2 s 170 1 Masodik Y-koordinata 
2101 $ 

2201 0314 IROVEC - 3314 

2301 ES31 IROREGI s $EAZI 

240: ; 

530831 oZIc t2A28 

3101 SIIC 78 INIT SEI 

320: SIZD A? 64 LDA 8SORI j; Az elso megszakiíitas 
IZOr vOIZF SD 12 DO STA RASTER z A 1800-as sornal 
3408: 8352 AD L11 DO LDA RASTER-1 

3501 oJyas 29 7F AND €ZgiÍÍ1í11i1i ;: A felso byte 

3601 2387 895 11 DE STA RASTER-—i 
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370: 934Aa Ag 81 LDA $7/10000001 :; A rasztersor altali 


380: 034C BD 1A DO STA IMR ; megszakitas 
390: 034F A? SB LDA $C(C TESTIRO 
400: os5s1 ag 03 LDY §5 TESTIRA 
4102 0353 BD 14 03 STA IROVEC 3; Vektor az uj 
4201 o35éó 8C 15 03 STY IROGVECt1 ; rutinra mutat 
430: 0359 58 CLII 
4401 o3SA 60 RTS 
450: s 
4601 O3SB AD 19 DO TESTIRO LDA IRR ; A regiszter beolvasasa 
470: O3ZS5SE BD 19 DO STA IRR 3; es torlese 
4BO: 0361 29 D1 AND $4/1i : Rasztersor generalta az IRO- 
4901 0363 Do 03 BNE OK ; Igen 
5001 0365 4C 31 Ex JMP  IROREGI : Normal IRO 
5101 ; 
520: 0368 AD 12 DD OK LDA RASTER ; Aktualis sor 
SZO: o36B C9 CB CMP  4$5ORZ2 z; -s mint a 2.sor 
540: O3Z6D BO 16 BCS SECOND 3; Igen 
545: ; 
5501 036óF Ap CB LDY $SORZ 3 A kovetkezo IRO a 2.sorban 
555rt 0371 A9 RA LDA  $YKODRDZ2 3; Uj SPRITE koordinata 
560: 0373 8C 12 Do VISSZA STY RASTER : A rasztersor beallitasa 
5701 0376 AZ BE LDX 4$14 
5901 0378 9D 01 DO CIKLUSI1 STA SPRITEY,X 1; SPRITE koordinatak 
600: 2937B CA DEX ; modositas 
6001 937C CA DEX 
610: 037D 10 F9 BPL  CIKLUSI 
6201 s 
630: 037F 68 PLA ;: A regiszter visszatoltese 
6481 0380 AB TAY 
650: 0381 68 PLA 
6601 0382 aa TAX 
670: 0383 68 PLA 
6891 0384 40 RTI 
690: s 
700: ozesS Ag 64 SECOND LDY $S5SORI 3 AZ elso sor parametere 
710: 0387 A9 5A LDA $YKOORDIÍ 
7201 0389 4C 73 053 JMPF VISSZA 
033C-OZB8C 
NO ERRORS 


Az elkészült rutint csak úgy tudjuk kipróbálni, ha előzetesen 8 sprite-ot aktivizá- 

lunk. Erre szolgál a P.33-as BASIC program. Ha ezt lefuttatjuk, majd SYS 828 

utasítással elindítjuk a P.32-es rutint, hirtelen felvillan a képernyőn 16 sprite. 

Közülük 8-nak az y-koordinátája 80, a többié pedig 170. Amint a képernyőn 

megjelenik a felső 8 sprite, a paramétereket a megszakítási rutinok úgy változ- 

tatják meg, hogy ugyanez a 8 sprite most a képernyő alsó felén legyen látható. 
963 dé P353. 4634 4t 


100 FOR I:0 TO 7 it POKE 20380$tI,12 : NEXT 

110 Va5S53248 

1290 POKE Vt21,255 

139 FOR I59 TO 7 s: POKE V-Á2eI,(I4128390 s: FOKE Vs2wI$1,70 s: NEXT 
1409 FOR I59 TO 7 : POKE V6396I,1i :3 NEXT 


A koordinátákon kívül természetesen más paramétereket ís módosíthatunk, 
például a sprite színét vagy nagyságát. Söt, ha a sprite mutatóját változtatjuk 
meg úgy. hogy az egy másik sprite-mintára mutasson, akkor az eredetiektől 
egészen eltérő figurákat is előállíthatunk a képernyő alsó felén. 

A rasztermegszakítási rutinba beépítve a képernyő üzemmódjának megváltoz- 
tatását, osztott képet is előállíthatunk, aminek eredményeként pl. a képernyő 
felső felén egy finom felbontású grafika, az alsó felén egy szöveg látható. 

A kétféle ábrázolási üzemmód hatását akár egy BASIC programból is áilandó- 
an változtathatjuk, ha a megszakítást kíváitó rasztersor értékét egy RAM-beli 
címen tároljuk. Az alkalmazási lehetőségek száma iti is végtelen. 
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2.5 A CIA 6526-OS MEGSZAKÍTÁSAI 


A CIA 6526-os processzor nagyon sokféle megszakítás forrása lehet. 

A CIA 6526-os egy univerzális input/output elem, amelybe két párhuzamos 
8 bites port, egy soros eltolási regiszter, két 16 bites számláló, egy valós idejű 
óra és több handshake vonal van beépítve. 

A 8 bites párhuzamos portok bonyolítják le az adatforgalmat, azaz az adatok 
beolvasását és kiírását. A két CIA összesen 4 portot tartalmaz, amelyből 
hármat használ az operációs rendszer; a CIA 1 két portja felel a billentyűzet 
és a botkormányok lekérdezéséért. A CIA 2 A portja lebonyolítja a videovezérlő 
16 K-s tartományának kiválasztását (a 0. és 1. bit), 2. bitje szabad, míg a 3-tól 
a 7-ig terjedő bitjeit a soros busz használja. A B port user portként teljesen a 
használó rendelkezésére áll, hacsak nem csatlakoztattunk ide a soros adatátvi- 
telhez egy RS 232-es betétet (cartridge-ot). 

Az operációs rendszer a számlálókat az alábbiak szerint használja: 


CIA 1 A számláló 60 Hz-es rendszermegszakítások 
B számláló soros busz (time out) 
kazetta olvasás, írás 
CIA 2 A számláló továbbítás az RS 232-eshez 
B számláló fogadás az RS 232-esről 


A CIA 2 számlálóit bármilyen saját célra igénybevehetjük. A CIA 2 nem IRO, 
hanem NMI típusú megszakítást vált ki. A CIA 1 B számlálóját is használhatjuk, 
ha munka közben nincs szükségünk a soros buszra, ez esetben IRO megszakí- 
tást is létrehozhatunk. Sőt, ha a rendszermegszakításokról lemondunk, az 
A számlálót ís saját elképzelésünk szerint használhatjuk. 

A valós idejű órát az operációs rendszer egyáltalában nem használja, ami 
számunkra a következő lehetőségeket nyújtja: riasztó idővel tetszés szerint 
kiválthatunk egy IRO (CIA 1) vagy egy NMI (CIA 2) megszakítást. 

A soros tolóregiszterrel is szabadon gazdálkodhatunk. A FLAG vonal, amely 
handshake-bemenetként szolgál, lefutó éllel 1-re állítja a CIA 2 ICR (Interrupt 
Control Register) megfelelő bitjét. 

Az inpuVoutput - és a handshake-vonalak elsősorban speciális külső egységek 
csatlakoztatására szolgálnak. Ezzel a témakörrel foglalkozik a , A Commodore 
64-es és a világ másik fele" c. könyv". Ezen a területen a megszakítások 
programozása szintén főszerepet játszik. Mi is foglalkozunk példaként egy 
nyomtató user portra csatlakoztatásával, azonban ez a könyv elsősorban a 
rendszerrutinok elemzését adja, így a külső egységek kezelését csak az ide 
vonaikozó BASIC utasítások kapcsán (OPEN, PRINT stb.) említjük meg. Követ- 
kező példánk egy ébresztőórát készít a Commodore 64-esből. 

A programban a valós idejű órát használjuk, és a megfelelő időben bekövetke- 
ző ébresztést z CIA 2 NMI megszakításán keresztüli generáljuk. 


" Eredeti cím. Der Commodore 84 und der Rest der Welt. Magyarul elősöszületben (a szerk.) 
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P34. 


PROFI-ASS 64 V2.Oo 


1900: 
110: 

1201 
150: 

140: 
1501 

1601 
170: 

1801 
1901 

200: 
2101 
22091 
2301 
28401 
2501 
2601 
2701: 
28091 
290: 
3001 
35101 
320: 
3501 
540: 
3501 
360: 
5701 
3801 
3991 
4001 
4101 
429: 
450: 
4401 
4501 
4601 
470: 
480: 
4901 
500: 
510: 
5291 
5301 
540: 
5501 
5609: 
570: 
589: 
6991 
600: 
610: 
629: 
6501 
6481 
6501 
660: 
6701 
6801 
6901 
700: 
7101 
7291 
7301 
7801 
7501 
7601 


os3ce 


DDO9 
DDO8 
DD99 
DDOA 
DDOB 


DDOD 
DDOE 
DDOF 
DOo2o 
0002 


0318 
FES6 


09909 
99000 
0990 
99012 


0020 
0005 
0000 
0912 


[/53610) 


033C 
oszF 
0341 


93484 
0347 
0349 


053c 
934E 
0351 
0555 
9556 
0358 
o35B 
o35D 


9360 
0363 
93565 


0569 
036A 
0os6D 
oseF 
09372 
0374 
0377 
3379 


937ce 
G37E 


kásás 


DD 
DD 
DD 


DD 


DD 
DD 
DD 
DD 
DD 


DD 
DD 
DD 


DD 


DD 


DD 


:DFT F,00 


EBRESZTOORA A CIA2-vel 


CIA2Z z $DDO0D 
TOD1IO hez CIA2rB 
TODSEK m CIA249 
TODMIN z CIA2t10 
TODSTD s CIA2411 
; 

ICR kal CIA2tr13 
CRA z CIA24H14 
CRB m CIA2-415 
BORDER kal $DO20 
ROT ei 2 

; 

NMI z $318 
CONTNMI  : $FE56 

; 

$ ORAIDO 

TIZED hd o 

SEC z $00 
MIN z $00 
ORA sz $12 


Hi 
3 EBRESZTESI IDO 
EBR. 10 - a 


EBR.SK z $05 

EBR.MN - $00 

EBR.ST z $12 

; 
kel 8B28 

; 

; AZ IDO BEALLITASA 
LDA CRA 
ORA 4H$8BD 
STA CRA 

; 
LDA CRB 
AND 4$$7F 
STA CRB 

; 
LDA $ORA 
STA TODSTD 
LDA $MIN 
STA  TODMIN 
LDA $SEC 
STA TODSEK 
LDA $TIZED 
STA TOD1IO 

; 
LDA CRB 
ORA $$8B0 
STA CRB 

; 
LDA §EBR.ST 
STA TODSTD 
LDA HEBR.MN 
STA TODMIN 
LDA $EBR.SK 
STA TODBEK 
LDA $EBR.19 
STA TODI1O 

; 
LDA 
STA ICR 


A CIA baziscime 
Tízed masodperc 
Masodperc 

Perc 

Ora 


199 8 


Interrupt kontroll register 


; 
3; Kontroll regiszter A 
; 


Kontroll regiszter B 
i A keret szine 


3 NMI vektor 
3 A regi NMI 


12h 00" 009.0"" 


í12h 02" 05.090" " 


1 50 Hz-s oratrigger 


z; Az ido beallitasa 


3 Ebresztesi ido 


$7.192239100 4; Ebresztes 


3 NMI engedeiyezez 


770: 0381 ag 8C LDA §K TEST 


780: 90383 Ag 03 LOY.- $5 TEST 

790: ozes 8D 18 05 STA NMI 3 Az uj NMI-vektor 
800: 0388 8C 19 03 STY NMI-ti 

810: OIZBB 60 RTS 

820: ; 

830: ozeC 48 TEST PHA 

840: o38D 8A TXA 

asso: 938E 48 PHA 3; A regiszter mentese 
B60: o3zeF 98 TYA 

870: 0399 48 PHA 

880: 0391 AC OD DD LDY ICR 

880: 0394 98 TYA 

890: 0395 29 24 AND 4/1009 § A-Hit 1 ? 
7990: 9397 Do 03 BNE EBR. ; Igen 

910: 0399 4C 546 FE JMP EONTNMI 

920: ; 

930: 0390 A? 02 EBR. LDA $ROT 

940: 039E BD 29 DO STA BORDER j A keret piros 
950: ; 

9607 OZIAL! 68 PLA 

960: 03A2 AB TAY 

970: "— DOZ3AZ 68 PLA 

970: 03Aa4 AA TAX 

98O: O3A5 68 PLA 

980: OZAG 40 RTI 

10330C-03A7 

NO ERRORS 


A program először rögzíti a valós idejű óra és a CIA 2 vezérlőregiszterének 
címét. Ezután beállítja az időt 12 órára, az ébresztési időt pedig 12 óra 5 percre. 
Az óratrigger értéke 50 Hz lesz, így az óra pontosan fog számolni. Ezután a 
program törli a B vezérlőregiszter 7. bitjét, ezzel jelezve a CIA számára, hogy 
szeretnénk a pontos időt beállítani. Most 1-re állítjuk a 7. bitet, meghatározzuk 
az ébresztési időt és az ICR regiszterben a megszakítást (NMI) engedélyezzük. 
Ehhez a 7. és a 2. bitek értékét kell 1-re állítani. Végül az NMI vektor címét úgy 
módosítjuk, hogy az a mi új rutinunkra mutasson, és ezzel a kezdeti értékek 
meghatározását (inicializálást) befejeztük. 

A tulajdonképpeni NMI rutin elkészítése nem jelent nehéz feladatot. Először a 
regiszterek tartalmát a verembe mentjük, majd beolvassuk az ICR tartalmát és 
megvizsgáljuk a 2. bit értékét. Ha ez nem 1, akkor ideje ébreszteni. 

Az ébresztést szimbolikusan a képernyő színének pirosra váltásával jelezzük. 
Most visszaállítjuk a regiszterek eredeti tartalmát és RTI utasítással visszaté- 
rünk a megszakított programba. 

Ha az NMI kiváltója nem az volt, hogy az idő azonos az ébresztési időponttal, 
akkor visszatérünk az operációs rendszer NMI rutinjára. Ez a rutin megvizsgál- 
ja, hogy a RESTORE billentyűvel együtt a STOP billentyű is le van-e nyomva 
(az NMI-t ugyanis a RESTORE billentyű váltja ki). Ha igen, akkor egy melegstart 
végrehajtása következik. 

A program kidolgozásánál nem tartottuk fontosnak azt a részt, amely a riasztási 
időpontban lejátszódó eseményt generálja. Az Olvasó ízlése és igénye szerint 
készítheti el ezt a programrészt. Ha valóban ébresztőórát akarunk programoz- 
ni, akkor egy hangkeltő rutint célszerű ide beiktatni, és érdemes egy kényelmes 
beolvasó rutint készíteni a kezdeti idő és az ébresztési idő bevitelére. 


2.6 A SZÁMLÁLÓK (TIMEREK) FELHASZNÁLÁSA 


Mindkét CIA tartalmaz két 16 bites számlálót, amelyek lefutása kiválthat egy 
megszakítást. A számlálók értéke minden processzor-ütemben eggyel csök- 
ken. Ha a tárolt számérték nullára csökkent, az ICR (Interrupt Control Register) 
megfelelő bitjének értéke 1 lesz — és ha ugyanakkor a bitmaszk megszakítást 
engedélyező bitje is 1, akkor létre is jön az ÍRO vagy az NMI megszakítás. 
A Commodore 64-es a nyugat-német PAL rendszer szerint kb. 985 kHz ütem- 
frekvenciával működik, így egy ütemciklus 1,015 s, ill. kerekítve 1 s ideig tart. 
A 16 bites számlálók maximális számértéke 65535, így a lehetséges megszakí- 
tások közötti időtartam maximálisan 65535 ütemciklus, azaz 65 ms, a másod- 
percnek kb. egytizenötöd része. Pl. ha a CIA 1 számlálóba a $4025 számértéket 
töltöttük, az 16421 ütemciklusnak kb. egyhatvanad másodperc felel meg. 

Az amerikai NTSC rendszerben az ütemfírekvencia 1.02 MHz. Ott a számlálóba 
töltött $4295, azaz decimálisan 17045 felel meg a hatvanad másodpercenkénti 
lefutásnak. 

A számlálók különböző üzemmódban működhetnek, megkülönböztetünk egy 
ún. , egy lövés" (one shot) és egy folytonos (continuous) üzemmódot. Az első 
esetben a számláló a kezdőértékről nulláig számol, majd leáll, a folytonos 
üzemmódban pedig amint elérte a nullát, automatikusan felveszi a kezdőérté- 
ket és a számlálás újra indul. A megszakítások kiváltásán kívül a számlálók 
arra is képesek, hogy egy impulzust küldjenek. Ezt felhasználhatjuk pl. egy 
külső egység ütemjeleként. A számlálók kezdőértékét kívülről is meghatároz- 
hatjuk, a számlálását (csökkentését) is végezheti egy kívülről érkező jel (nem- 
csak a rendszerütem). A számlálók a kapcsolatteremtés eszközei is lehetnek.- 
Képesek együttműködni olyan módon, hogy amint az egyik értéke nullára 
csökkent, a másik megkezdi a számlálást. Ez lehetőség arra, hogy egy 32 bites 
számlálót imitáljunk, amely 2??, azaz 4 294 967 296 számú ütemciklust, tehát 
4360 másodperc (— 1 óra 12 perc) hosszúságú időtartamot jelent. 

A megszakítások programozásáról szóló fejezetünket egy olyan gépi kódú 
program ismertetésével zárjuk, amely lehetővé teszi, hogy BASIC szubrutint 
futtassunk megszakításvezérléssel. Eközben megismerkedünk a számlálók 
programozásának módszerével és ugyanakkor a BASIC értelmező működésé- 
ből is újabb ízelítőt kapunk. 

A feladat egy olyan új BASIC utasítás előállítása, amellyel egy tetszőleges 
szubrutint a programból bizonyos idő elteltével ismételten meghívhatunk. 

A feladat megoldásához még szükségünk van némi elméletre. 

A BASIC értelmező egy BASIC program feldolgozásának főciklusában egy 
olyan rész, amely értelmezi és végrehajtja az utasítást. Minden utasítás után 
megvizsgálja, hogy a STOP billentyűt időközben lenyomták-e. Ha igen, kilép a 
főciklusból és visszatér közvetlen üzemmódra. A STOP billentyű vizsgálatát 
egy ugrással végzi el. Ezt ugrási vektorral változtatjuk meg úgy, hogy az egy 
másik rutiínra mutasson. Ebben a rutinban megvizsgáljuk, hogy a megszakítás 
feltételei teljesülnek-e, vagyis a számlálónk lefutott-e már. Ha igen, akkor egy 
valódi megszakítási rutin egy kapcsoló értékét 1-re állítja, ennek alapján a mi 
rutinunk is tájékozódhat. 
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Az új BASIC utasítás paramétereként megadhatjuk, hogy melyik az a BASIC 
rutin, amelyet időközként ismételni szeretnénk. Az utasítás második paraméte- 
re megadja a megszakítások közötti időtartamot. 


! GOSUB 1000,100 


A felkiáltójel megkülönbözteti az új utasítást a régi megszokott GOSUB utasí- 
tástól. Az időközönként végrehajtandó rutin az 1000-es sorban kezdődik, az 
időtartam pedig 100. Az időegység kb. egyötvened másodperc. Ezt az értéket 
töltjük az egyik számlálóba. A második értéket a következő számlálókba töltjük, 
amelyeket 16 bites számlálóként használunk. Így a programozható időhöz 
egyötvened másodperctől 65535 ötvenedmásodpercig, azaz 0.02—1311 másod- 
percig (1311 másodperc — 21 perc 51 másodperc) tarthat. 

A program három rutin inicializálásával indul. Az első úgy módosítja a BASIC 
értelmezőt, hogy az , megértse" az új BASIC utasítást. 

A második minden utasítás végrehajtása után megvizsgálja a számláló-figyelő 
kapcsoló értékét, és ha szükséges, elágazik a szubrutinba. 

A harmadik program a saját megszakítási vagy NMI rutinunk, amely a másik 
két rutin számára a számláló lefutása után beállítja a kapcsolót. 


ha. P35. kád 


FROFI-ASS 64 V2.0 


100: CCoo .:OPT P.B 

110: CCog - TIT "BASIC-IRO" 

120: CCoo . SYM 1 Szimbolumtablazat kiiraáasa 
150: ; 

140: ; A BASIC megszakitasi rutin 

150: ; 

1601 0308 EXEC z $308B ; z utasítas vegreha . vektor 
1701 9318 NMI z $3518 ; NMI-vektor 

1801 05328 STOP z $3528 $ STOP-vektor 

190: ; 

200: DDO0 CIAZ2 z $DDO0O 

210: DD04 TIMERA hai CIA2r4 s; Tiíimer A 

220: DDO6 TIMERB z CIAZ2tó s; Timer B 

230: DDOD ICR z CIA2t13 ;: Interrupt Control fkegister 
2401 DDOE CRA z CIA2H14 3 Control Register A 

250: DDOF CRB z CIA2415 Control Register B 

260: s $ 

270: FES6 CONTNMI  - $FES6 3 A regi NMI visszaallitasa 
2801 ; 

290: 4CFI TIME hai 19705 3 520 Millísec. 

39007 0014 LO z $£14 ; A sorszam also byte-ja 
5101 0015 HI z LO$1 

520: vosF LINEADR 5 $5F ; A BASIC sor cime 

3501 9039 LINENO - $397 1 Futo sorszam 

340: 0073 CHRGET z $73 

3501 0079 CHRGOT z CHRGETr6 

360: 007 TXTPTR kal CHRGOT 61 

3701 0o8D GOSUB - $8D 3; 605UB8-token 

I80: AFOB SYNTAX z $AFOB ; SYNTAX ERROR 

390: ASBES UNDEFD - FABEZ 3; UNDEF"D STATEMENT ERROR 
4001 B248 ILLOUAN $B248 3 ILLEGAL OGUANTITY ERROR 
410: A7RE INTER d $A7AE ; Az interpreter-—ciklus 
420: A96B BETLIN z $A96B ; A sorszam betoltese 

4301 A61Z GETADR z $AG1Z 3; Sor keresese 

440: REFD CHKCOM z $AEFD ; A vesszo vizsgalata 

450 A7E7 EXECOLD z $A7E7 z; Az utasitas vegrehajtasa 
460: ADBA F RMNUM - rADBA 3; Numerikus ertek betolitese 
470: B7F7 INTEGERK  z $B7F7 ; es atvaltasa egeszre 
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4801 
4905 
500- 
510: 
520: 
5305 
540: 
5501 
5601 
5701 
580: 
5901 
600: 
6101 
6201 
6301 
64301 
650: 
660: 
670: 
6807 
690: 
700: 
710: 
720: 
7301 
740: 
750: 
760: 
770: 
780: 
790: 
800: 
8101 
820: 
SZO: 
B40: 
S5So: 
860: 
870: 
880: 
8901 
900£ 
910r 
920: 
9301 
9401 
950: 
960: 
9701 
9801 
990905 
1000: 
19010: 
10201 
10301 
1040: 
10501 
1060: 
1070: 
10801 
1090: 
1190: 
11101 
11207 
1150r 
711901 
1150r 
1160: 
1170: 
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oz 


cc 


TESTSTACK- 
TESTOLD zs 
NMIOLD m— 
i 


INIT 


; 
TSTGOSUB 


; 
TSTGOSUB 


OK 


FOUND 


OK1 


: 
IROOFF 


$AZFB 
$F6ED 
$FE47 


199 og 00 


$CC00 

4C TESTSTAT 
$d TESTSTAT 
EXECIN ; 
EXEC-1 ; 
Ho 

FLAG ; 


CHRGET ; 
rt 
TSTGOSUB 
CHRGOT ; 
EXECOLD ; 


CHRGET ; 
$GOSUB ; 
OK : 
SYNTAX b 
CHRGET ; 
IROOFF ; 
GETLIN ; 
GETADR $ 
FOUND b 
UNDEFD ; 
LINEADR ; 
1 ; 
LINESTR s 
LINEADR61 
[Arj ; 
LINESTRt1 
CHKCOM ; 
FRMNUM ; 
INTEGER H 
LO 

HI s; 
OKI1 ; 
ILLOUAN s; 
HI 

TIMERBt1 

LO ; 
TIMERB 

$2 TIME H 
TIMERAT 1 

$C TIME ; 
TIMERA 
4/D00010001 ; 
CRA 
47/01010001 
CRB 

ICR 
4/.109900010 
ICR 

$Cc TESTTIME 
42 TESTTIME 
STOP ; 
STOP-1 

$C NMIRDUT 
$2 NMIROUT 
NMI 

NMI41 
INTER s 


$/01111111 
ICR ; 
$C TESTOLD 


Hely keresese a veremben 
A STOP billentyu vizsgalata 
A regi NNI vektor 


Ugrasdekodolas rutínja 
A "!" hozzafuzese 


A kapcsolo torlese 


A kovetkezo karakter betoltese 


A kapcsolo helyreallítasa, 
es tovabb 


A kovetkezo kapcsolo 
60SUB-kod ? 

Igen 

SYNTAX ERROR 

A kovetkezo sor 

Ha sorvege, akkor IRO 

A sorszam betoltese 

A sor címenek betoltese 
Megvan ? 

Nem, UNDEF"D STATEMENT ERROR 
A sor cime 

Minusz 1 

Tarolaáasa 


Felso BYTE 

A vesszo vizsgalata 

A szam betoltese, 

Es  atalakitasa egeszre 
Felso es also BYTEB ? 


Nem 
ILLEGAL DUANTITY ERROR 


ertek betoltese a B tímerbe 
A tímerbe 
20 


ms. betoltese 


Az A tímer indul 

A B tímer indul, 

az A tímer triggerezi 
Az ICR torlese 

A B timer NMI-je 
Engedelyezett 


STOP-vektor beallítasa 


NMI-vektor beallítes 


Az interpreter cíklushoz 


Minden megszakiítas ki 


1180: CC9B AOo 
1190:  CCYD 8D 
1200: CCAB 8C 
12103: CCAZ3 A? 
1220: CCAS ADO 
12301  CCAJ7 BD 
1240: CCAA 8C 
125013: CCAD 4C 
1260: 

1270:  CCBO 40 
1280: CCB1 8A 
1280:  CCB2 48 
1290: CCB3 98 
1290:  CCB3 48 
1300: CCBS AC 
1310: CCBB 98 
153280:  CCB9? 29 
1330:  CCBB DO 
1340:  CCBD 4C 
13505 

15360: CCCO EE 
1370: CCC3 68 
1370: CCC4 AB 
13801: CCC5 68 
1380: CCC6 AA 
1390: CCC7 68 
1390:  CCCA 40 
1400: 

1410:  CCC9 AD 
1420:  CCCC DO 
1430:  CCCE 4C 
1440: 

14501  CCD1 CE 
1460:  CCD4 68 
14603 CCDS 68 
1470:  CCD6 A? 
1480:  CCDB 20 
1490: CCDB A5 
1500:  CCDD 48 
1510:  CCDE Aa5 
1520:  CCE0G 48 
1530£r CCE1 A5 
1540: CCE3 48 
1550: CCE4 A5 
1560:  CCE6G 48 
1570: CCE7 A9 
1580:  CCE9 48 
1590:  CCEA AD 
1600: CCED 85 
1610:  CCEF AD 
1620: CCF2 85 
1630: CCF4 4C 
1640: 

16501  CCF7 
1660:  CCFB 
CCBOO-CCFA 

NO ERRORS 
BASIC-IRA 
SYMBOLTABLE: 


LINESTR CCFg 
TIMEOUT CCCo 


FOUND CC37 
INIT cCcgo 
INTEGER B7F7 
GETADR AS61Z 
UNDEFD ABES 


F6 
28 
29 
47 
TE 
18 
19 
RE 


oD 
02 
03 
Só 


F7 


LDY 
STA 
STY 
LDA 
LDY 
STA 
STY 
IMP 


, 
NMIKDUT  PHA 


DD 


FE 


TXA 
PHA 
TYA 
PHA 
LDY 
TYA 
AND 
BNE 
JMP 


; 
CC TIMEOUT INC 


; 


PLA 
TAY 
PLA 
TAX 
PLA 
RTI 


CC TESTTIMÉ LDA 


F6 
; 


BNE 
JMP 


CC TIMEIRO DEC 


AZ 


FLAG 


PLA 
PLA 
LDA 
J5R 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
LDA 
STA 
IJMP 


atz 


LINESBTR ts 


FLAG 
NMIROUT 
OK 
NMIOLD 
FRMNUM 
GETLIN 
SYNTAX 
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CCF7 
CCBO 
CC27 
FE47 
ADBA 
A96B 
AFoB 


$2- TESTOLD 
STOP 
STOP61 

$c NMIOLD 
42 NMIOLD 
NMI 

NMI$1i 
INTER 


ICR 

4710 

TIMEOUT 
"CONTNMI 


FLAG 


FLAG 
TIMEIRO 
TESTOLD 


FLAG 

LA 
TESTSTACK 
TXTPTRF1 
TXTPTR 
LINENOSt1 
LINENO 
$GOSUB 
LINESTR 
TXTPTR 
LINESTRt1 
TXTPTR-H1 
INTER4S5 


441 
4442 


TIMEIRO CCD1 
IRGOFF CC94 


198 sas 0. 


A STOP-vektor a regi ertekre 


NMI-vektor a regi ertekre 


Az interpreter ciklushoz 


A B tímer lefutott ? 
Igen 
Egyebkent normal NMI 


A kapcsolo beallitasa 


A kapcsolo erteke 1 ? 
Igen 


A kapcsolo torlese 
A visszaugrasi cim a verembol 
Van meg eleg hely a veremben ?7 


CHRGET-mutato a veremre 


Az aktualís sorszam a veremben 


A GOSUB-kod a verembe 


A szubrutin cime 


Az interpreter ciklushoz 


TESTTIME CCC? 
OK1 cCS7 


TSTGOSUB CCID TESTSTAT CCIOB 
TESTOLD F6ED TESTSTAC ASFB 


EXECOLD A7E7 
INTER A7RE 
BGOSUB Dpo8D 


CHKCOM REFD 
ILLOUAN B248 
TXTPTR 007A 
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CHRGOT 9979 CHRGET 9973 LINENO 00397 LINEADR o9g3sF 


HI 0015 LO 0014 TIME A4ACF9 CONTNMI FE56 
CRB DDOF CRA DDGE ICR DDOD TIMERB DDO6 
TIMERA DDO04 CIAZ2 DDO0 STOP 328 NMI 0518 
EXEC 0508 


45 EYMBOLS DEFINED 


A részletes leírás előtt nézzük meg a gépi kódú program hívását egy BASIC 
programban! 


Ládd P36. nam 


100 SYS 52224 : REM A BASIC BOVITES INICIALIZALASA 
119 !GOSUB 220,5D 

120 1-I4§1 s PRINT I s: IF ICIO9 GOTO 120 

159 !GOSUB 

140 END 

200 J5J4§1 t PRINT J ".IRO-HIVAS !" : RETURN 


Amikor a programot RUN paranccsal elindítjuk, első lépésként a 100-as sorban 
elhelyezett SYS utasítás inicializálja a BASIC bővítését. A 110-es sorban meg- 
szakítási aliprogramként kijelöljük a 200-as rutint, amelyet minden másodperc- 
ben (50 ötvenedmásodperc) ismételten végre kell hajtani. A tulajdonképpeni 
főprogram a 120-as sorban kezdődik, és semmi egyebet nem tesz, minthogy 
számol 1-től 100-ig, és a soron következő számot kiírja a képernyőre. Amikor 
a ciklus végetér, végrehajtunk egy paraméter nélküli ! GOSUB utasítást, és 
ezzel a program futása is befejeződik. A megszakítási rutint a 200-as sorban 
helyeztük el. Ez a sor minden hívásnál kiír egy szöveget a hívás sorszámával 
együtt a képernyőre, majd a RETURN utasítás hatására visszatér a főprogram- 
ba. 

Futtatás közben a program kiírja a képernyőre 1-től 100-ig a számokat, közben 
ötször megszakítja a kiírást az alábbi sorokkal: 


1. IRO — HIVAS! 


5. IRO — HIVAS 


Ha megfelelően megváltoztatjuk a 110-es sorban a második paramétert, meg- 
mérhetjük a hívási frekvenciát. A második paraméter értéke 1 és 65535 közé 
eső szám lehet. Minél kisebb ez az érték, annál gyakoribb lesz a megszakítási 
rutin hívása. A megszakítási rutin végrehajtási ideje természetesen nem lehet 
nagyobb, mint a két hívás között eltelt idő, egyébként a szubrutin a saját futását 
szakítaná félbe, és a ciklikus megszakítástól a verem hamar megtelne. A 


110 !GOSUB 200,1 
utasítás a program futási eredményét alaposan megváltoztatná: 
1 


1. IRO — HIVAS! 
2. IRO — HIVAS! 
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22. IRO — HIVAS! 
23. IRO — HIVAS! 
?7O0UT OF MEMORY ERROR IN 200 


A megszakítási rutin hosszát megszabja a maximális hívási ütem. 

Térjünk vissza a gépi kódú program ismertetésére. 

A 100-tói 500-ig terjedő sorokban rögzítjük a program által használt konstansok 
értékét. Itt adjuk meg az NMI és a BASIC vektorok címét, majd a CIA 2 regiszte- 
reket, amelyek a számláló — megszakításokhoz szükségesek. A 290-es sorban 
rögzítjük az időegységet. Ezután következnek a nulláslap BASIC (pl. a hibaüze- 
netek) címei, és az értelmező ROM címei. 

Az 520-tól 590-ig terjedő sorokban végrehajtjuk az inicializálást. Ez azt jelenti, 
hogy ítt végzünk el minden olyan rendszermódosítást, amely ahhoz szükséges, 
hogy a program a mi elképzelésünk szerint működjön. Azt a vektort, amely a 
BASIC utasítások dekódolását és végrehajtását tartalmazó rutinra mutat, úgy 
változtatjuk meg, hogy a saját rutinunkra mutasson. 

A saját rutin beolvas egy karaktert a BASIC szövegből, és megvizsgálja, hogy 
az felkiáltójel-e? 

Ha nem, akkor a CHRGOT rutinnal a kapcsoló eredeti értékét visszaállítjuk és 
az értelmezőnek arra a részére ugrunk, ahol az az utasításokat a szokott 
módon feldolgozza. Ha a karakter felkiáltójel, akkor beolvassuk a következő 
karaktert és megvizsgáljuk, hogy az megfelel-e a GOSUB utasításnak. Ha nem, 
akkor kiírjuk a SYTNTAX ERROR hibaüzenetet. 

Ha azonosítottuk a GOSUB utasítást, akkor beolvassuk a következő karaktert. 
Ha sor végét észlelünk, akkor elágazunk arra a programrészre, amely kikap- 
csolja a megszakításokat és a vektorok eredeti értékét helyreállítja. 
Egyébként beolvassuk a megszakítási rutin sorszámát. Ellenőrizzük, hogy ez 
a sorszám valóban létezik-e (a C kapcsoló értéke alapján), majd a sor címének 
eggyel csökkentett értékét későbbi felhasználásra tároljuk. Ezután következik 
a két paramétert egymástól elválasztó vessző vizsgálata. 

Végül betöltjük a második paramétert, amely a megszakítási időközök hosszát 
adja meg. Miután meggyőződtünk arról, hogy a beolvasott érték nem nulla, 
betöltjük a B számlálóba. Az A számlálóba betöltjük az ötvenedmásodpercnek 
megfelelő értéket, és mindkét számlálót elindítjuk. 

A B számlálót úgy programozzuk, hogy értéke az A számláló minden lefutása 
után eggyel csökkenjen. Végül engedélyeztetjük a B számláló NMI típusú 
megszakítását úgy, hogy az ICR-be a megfelelő bíitmintát írjuk be. 

Végül a STOP és az NMI vektorokat az új rutin címére állítjuk és visszatérünk 
az értelmező -— ciklushoz. 

Az 1150-től 1250-ig terjedő sorokban található az a rutin, amely egy paraméter 
nélküli ! GOSUB utasítás hatására kikapcsolja a megszakításokat, és mindent 
visszaállít az eredeti értékre. 

A tényleges NMI rutin az 1270-től 1390-ig terjed. Mint általában minden megsza- 
kítási rutinban, ítt is először tároljuk a regiszterek tartalmát, majd az ICR 
értékét megvizsgálva eldöntjük, hogy az NMI megszakítás forrása valóban a 
B számláló volt-e. Ha igen, egy kapcsoló értékét beállítjuk és visszatérünk a 
megszakításból, egyébként pedig elágazunk a valódi rutinra. 

A legfontosabb szubrutin, amelyet az értelmezőből minden utasítás végrehajtá- 
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sa után hívunk — az 1410-es sorban kezdődik. Itt vizsgáljuk meg, hogy a kijelölt 
időtartam eltelt-e már, és a kitüntetett kapcsoló értékét az NMI rutin beállította- 
e. Ha az eredmény negatív, akkor a szokott módon ugrunk a STOP billentyű 
vizsgálatát végző rutinra. Ha azonban a kijelölt idő eltelt, a kapcsoló értékét 
töröljük, és a veremből visszaolvassuk a saját ugrási címet. Itt végezzük el 
mindazt, amit az értelmezőnek minden GOSUB utasítás hatására el kell végez- 
nie. Megvizsgáljuk, hogy van-e még elég hely a veremben, majd a BASIC 
szöveg aktuális mutatóját és a sorszámot a verembe helyezzük. A FOR- NEXT 
utasítás végrehajtásától eltérően — amelynek paraméterei is bekerülnek a 
verembe -, itt csak a GOSUB kód kerül a verembe. Most betöltjük a szubrutin 
definíció szerint kiszámított és tárolt címet a BASIC szövegmutatóba, majd 
ismét elágazunk az értelmező-ciklushoz. Az értelmező végrehajtja a szubru- 
tint, és a RETURN utasítás hatására visszatér a megszakított programba. 

A program két változó értékétől függően érhet véget.A 120-as sorban található 
.SYM utasítás hatására kaphatunk a programbeli változók azonosítóit, ill. érté- 
keit tartalmazó táblázatot. 

Az elkészült gépi kódú programmal tetszőleges, a számláló által vezérelt- 
alprogramot hívhatunk meg egy BASIC programból. Az időtartamot 20 ms és 
21 min között tetszőlegesen megválaszthatjuk. 

Példaként nézzük meg a P.37-es programot, amely a képernyőt villogtatja a 
háttér és a keret színének felcserélésével. 


444t-t P37. 98-46-4t 


100 SYS 52224 
1109 Fi sz SIZ88 : F2 5 Fi 61 
129 !BOSUB 19909,58 
. 139 FOR Iz1i TO 10909 s: PRINT I, zt NEXT 
140 !BOSUB : END 
10999 AzPEEK(F1) s: POKE F1,PEEK(F2) s: POKE F2,A 1 .RETURN 


A BASIC megszakítási rutint mindig a ! GOSUB utasítással fejezzük be, amely 
helyreállítja a vektorok eredeti értékét. Ellenkező esetben ugyanis, ha pl. egy 
programot listázni vagy tárolni szeretnénk, az utasítás végrehajtását a saját 
készítésű rutin meg fogja szakítani. 

A következő mintaprogram kiírja a Commodore 64-es teljes karakterkészletét 
normál és inverz alakban, majd minden megszakítási lépésben átkapcsol 
normál karakter üzemmódról kibővített színes üzemmódra és megfordítva. Az 
átkapcsolás a videovezérlő 17-es regiszterében a 6. bit módosításával történik. 
Kibővített üzemmódban az eredeti 256 helyett csak 64 karaktert lehet ábrázolni. 
A képernyőkódok így felszabaduló felső két bitje a karakterek háttérszínének 
kiválasztására szolgál, amelyeket egyébként a videovezérlő 33-tól 36-ig terjedő 
regisztereiben (az 53281-től 53284-ig terjedő címeken) találhatunk meg. 


kesni P38B. 4646 1 


100 SYS 52224 

119 !GOSUB 170,25 

120 Xz18 

150 PRINT CHRS(X)g; : XzX$rÍZ8B AND 255 

149 FOR I532 TO 127 ii PRINT CHR$(I)g 1: NEXT 


159 FOR I:2169 TO 255 1! PRINT CHRÉ(I)g : NEXT 

160 PRINT 1: GOTO 159 

178 AzPEEK(53248417) : POKE 53248-417,(A OR 64) ANDNOT (A AND 64) 
180 RETURN 
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3.1! AZ OPERÁCIÓS RENDSZER ÉS A BASIC BŐVÍTÉSEI 


A Commodore 64-es gép óriási előnye nagyobb testvéreihez, a CBM 2000, 3000, 
4000 és 8000 gépekhez képest az, hogy szemben a többi géppel, a Commodore 
64-es BASIC értelmezőjét és operációs rendszerét nagyon egyszerüen lehet 
saját elképzelésünk szerint működő gépi kódú rutinokkal kibővíteni úgy, hogy 
ráadásul ezek a rutinok az értelmezőbe vagy az operációs rendszerbe tökéle- 
tesen beilleszkedjenek. 

A , beilleszkedés" alatt azt értjük, hogy a rutin inicializálása után az új lehető- 
séget egy új utasítással éppen olyan kényelmesen használhatjuk, mint a többi 
BASIC utasítást. 

Nincs szükség arra, hogy az új utasítás minden végrehajtását PEEK, POKE 
esetleg SYS utasítással készítsük elő. 

Mivel a Commodore 64-es a teljes 64 Kbyte RAM területet meg tudja címezni, 
a BASIC vagy az operációs rendszer módosítása mindössze annyiból áll, hogy 
a kívánt részt a ROM-ból a RAM azonos címtartományába átmásoljuk, ott 
tetszőlegesen megváltoztatjuk, majd az 1-es címen található porton keresztül 
átkapcsolunk a RAM-ra. A módszernek előnyei mellett természetesen van némi 
hátránya is. 

Az előnye elsősorban abban rejlik, hogy a módosítási lehetőségek száma 
korlátlan. Ez azt jelenti, hogy a BASIC helyett akár egy teljesen új programozási 
nyelvet is kialakíthatunk, és az operációs rendszert is teljesen átírhatjuk. 
Például, ha úgy tetszik, a teljes RAM területet a grafikus ábrázolásmód szolgá- 
latába állíthatjuk. A módszer hátránya az, hogy eközben elvész számunkra a 
RAM tartomány. 

A módosítások egyik változata az, hogy a $8000-től $9FFF-ig vagy a $8000-től 
$BFFF-ig terjedő területre elhelyezünk egy vagy két olyan EPROM-ot, amely 
tartalmaz egy BASIC bővítést, egy új nyelvet, vagy egy, a felhasználó által 
meghatározott programot.Ehhez a megoldáshoz szükség van egy, a bővítő 
portra (expansion port) illeszthető kártyára. 

A második megoldáshoz nincs szükség kiegészítő ROM-ra, csak arra, hogy az 
új módosított függvényeknek előre meg tudjuk határozni a beugrási pontjait. 
Ebben az esetben főszerepet kapnak az ún. beugrási vektorok, amelyeket a 
használó könnyen megváltoztathat. Az ilyen változtatásokat megoldhatjuk 
olyan indirekt ugróutasítással, mint pl. 


JMP (VEKTOR) 


A VEKTOR címen található a tényleges ugrási cím alsó és felső byte-ja. A gép 
bekapcsoláskor mindig újraállítja (inicializálja) ezeket a vektorokat és ezek a 
BASIC értelmező esetében mindig közvetlenül az ugróutasítások mögé mutat- 
nak. 

Amikor egy függvényt módosítunk, úgy kell eljárnunk, hogy először megírjuk 
a saját új függvényrutinunkat, majd az eredeti függvényhez tartozó ugróvektort 
átírjuk úgy, hogy az új függvényre mutasson. Az alapelv ugyanaz, mint amit 
már megismertünk a megszakítási vektorok esetében. 
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A ,RAM — módszer" alkalmazásához közöljük az alábbi táblázatot, amely 
tartalmazza azokat a bitmintákat, amelyeket az 1-es címre be kell írni ahhoz, 
hogy a megfelelő tárkonfigurációt kiválaszthassuk. 


kásás 


d6itat T46/3. 
Bit 

2 1 0 Dec 
e T 
Ze, EZ". ág 
tői 5 
100 4 
ap egi S 
07z- 9-2 
po i 1 
apo o 


BASIC I/O KERNAL 
RAM I/O KERNAL 
RAM I/O RAM 
RAM RAM RAM 

BASIC CHAR-GEN KERNAL 
RAM CHAR-GEN KERNAL 
RAM CHAR-GEN RAM 
RAM RAM RAM 


A táblázat minden olyan kombinációt tartalmaz, amelyeket a programból köz- 
vetlenül elő lehet állítani. A negyedik és a nyolcadik kombináció azonos ered- 
ményt ad, azaz a teljes címezhető területet átkapcsolja a RAM-ra. A táblázatból 
kitűnik, hogy akár a teljes BASIC ROM-ot is kicserélhetjük a RAM-mal, de a 
KERNAL ROM-ot csak a BASIC-kel együtt lehet kicserélni. Erre feltétlenül 
ügyelnünk kell, amikor az operációs rendszert akarjuk helyettesíteni. A $D000 
— $DFFF terület háromszorosan foglalt; egyrészt itt található az I/O tartomány 
a következő tagolással: 


963614 


$DD0OD 
$D490 
$D800 
$:DCDO 
$DDDO 
$DEDO 
$DFOO 


T46/4. 


$DSFF 
$D7FF 
$DBFF 
$DCFF 
$DDFF 
$DEFF 
$DFFF 


44144 


VIC 6569 

SID 6581 

Sziínram 

CIA í 6526 

CIA 2 6526 

I/O 1 bovitesekhez 
I/O 2 bovitesekhez 


Másrészt ezen a területen található a karaktergenerátor. Végül ez a terület a 
RAM-hoz tartozik abban az értelemben, hogy csak akkor érhetjük el, amikor a 
teljes tárat a RAM-ra kapcsoltuk át. 
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3.2 A BASIC VEKTOROK 


A BASIC értelmező hat olyan vektorral rendelkezik, amelyek kapcsolódási 
pontot jelenthetnek a saját készítésű rutinokhoz. Ez a hat vektor a 3-as lapon 
található és jelentésük az alábbi: 


9649 T46/5. 94343t 


Vektor Cím Jelentes 


$0300/$0301  $EZBB BASIC melegstart es hibarutin beugr.pont 
$0302/$0303 $A4538B Beviteli varakozo ciklus 

$0304/$0305  $A57C Atalakítas interpreterkodda 

$0506/$05307  $A719m Interpreterkod atalakitasa szovegge 
$10308/$0309  §$A7E4 A BASIC utasitas vegrehajtasa 
$OZORA/$OZOB  $AEB6 A BASIC kifejezes kiertekelese 


A hat vektor segítségével a BASIC értelmezőt messzemenően átalakíthatjuk. 
Az alábbiakban mindegyiket részletesen ismertetjük és példát adunk a felhasz- 
náiási isnetőségekre. 

Ha az Olvasó rendelkezik a , Commodore 64-es belső felépítése" c. könyvvel, 
érdemes ezt a fejezetet a gép ROM listájával párhuzamosan tanulmányoznia, 
az eredmény biztosan erőteljesebb lesz. 


A melegstart- és híibavektor $300/$301 


Mind az END utasítás végrehajtása, mind pedig egy esetleges hiba fellépte 
olyan ugrást eredményez, amelynek ez a vektor a kiindulópontja. Ha hiba lépett 
fel, akkor az X regiszter tartalmazza a hiba számát. A számok jelentése 1-től 
29-ig: 


kösösl T46/6. 369435 
Ssz. Hibauzenet 

í TOO MANY FILES Tul sok file 

2 FILE OPEN A file nyitva van 

3 FILE NOT OPEN A file nincs nyitva 

4 FILE NOT FOUND A file nem letezík 

5 DEVICE NOT PRESENT Az egyseg nincs jelen 
6 NOT INPUT FILE Nem INPUT file 

7 NOT OUTPUT FILE Nem OUTPUT file 

8 MISSING FILENAME Hianyzo file-nev 

9 ILLEGAL DEVICE NUMBER Illegalis egysegszam 


NEXT WITHOUT FOR 
SYNTAX 

RETURN WITHOUT GOSUB 
OUT OF DATA 

ILLEGAL OUANTITY 
OVERFLOW 


NEXT FOR nelkul 
Szintaktikus 

RETURN GOSUB nelkul 
Nincs tobb DATA 
Illegalis mennyiseg 
Tulcsordulas 


16 OUT OF MEMORY Betelt a tarterulet 
17 UNDEF"D STATEMENT Hatarozatlan utasítas 
18 BAD SUBSCRIFT Illegalis index 

19 REDIM"D ARRAY Ujradimenzionalas 


DIVISION BY ZERO 


Osztas nullaval 
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21 ILLEGAL DIRECT 

22 TYPE MISMATCH 

23 STRING TOO LONG 

24 FILE DATA 

25 FORMULA TOO COMPLEX 
26 CAN"T CONTINUE 

27 UNDEF"D FUNCTION 
28 VERIFY 

29 LOAD 


Parancs uzemmodban nem hasznalhato 
Tipus keveredes 

A szoveg tul hosszu 

Adathíba a file-ban 

A kifejezes tul osszetett 
Folytathatatlan 

Hatarozatlan fuggveny 

Ellenorzes 

Betoltes 


Vad 4. A ag ER 


Az 1-től 9-ig terjedő hibák a beolvasással és a kiírással kapcsolatosak, ezeket 
az üzeneteket az operációs rendszer küldi, míg a 10-től 29-ig terjedő üzenetek 
a BASIC értelmezőtől származnak. 
Ha az értelmező felismer egy hibát, a hibaszámot elhelyezi az X regiszterben, 
és ugrik a $A437-es címre, ahol az indirekt JMP ($0300) utasítás áll. Ha az 
ugrást nem hiba, hanem az END utasítás váltotta ki, akkor hibaszám helyett egy 
negatív érték ($80) található az X regiszterben. A hibarutin megvizsgálja az 
X regiszter tartalmát, és annak értéke szerint vagy egy hibaüzenetet, vagy a 
READY üzenetet írja ki, majd elágazik a beolvasási várakozó ciklusra. 
A hibavektort különböző célokra hasznosíthatjuk. Egyfelől megváltoztathatjuk a 
hibaüzenetek szövegét, lefordíthatjuk pl. magyarra. 
A másik, sokkal érdekesebb lehetőség az, hogy egy hiba bekövetkezésekor 
nem engedjük, hogy a program futása megszakadjon, hanem ehelyett elága- 
zunk egy meghatározott BASIC sorra, ahol a hibát valamilyen módon korrígál- 
juk. Egy ilyen utasítást elnevezhetünk pl. 

ON ERRŐR GOTO... 


utasításnak, hiszen ez a név feltehetően sokak számára ismerős más program- 
nyelvekből. 

Az új utasítással kezelhetjük pl. azokat a hibákat, amelyeket egy külső egység 
váltott ki. 


A beolvasási várakozó ciklus $302/$303 


Amikor a gép a hiba-, ill. melegstart vektoron keresztül kiírt egy hibaüzenetet 
vagy a READY szöveget, akkor a $302/$303 vektoron keresztül elágazik egy 
másik rutinra. Itt addig várakozik, amíg egy sor beadását egy RETURN le nem 
zárta. Közben figyeli, hogy a sor hossza nem haladta-e meg a 88 karaktert, 
amennyi a beviteli puffer területe (a $200-tól a $258-ig). Ha igen, akkor kiírja 
a STRING TOO LONG üzenetet. A beírt sor első karaktere határozza meg a sor 
feldolgozásának módját. Ha az első karakter számjegy, akkor az értelmező 
tudja, hogy egy új BASIC sort gépeltünk be. Ha a számjegy(ek) után semmi nem 
következik, akkor a sort törli a programból, ezzel ezt a munkafázist befejezi és 
visszatér a ciklus elejére. Ha a sorszámot szöveg követi, akkor azt átalakítja 
értelmező kódokká és a programsort beilleszti a programszövegbe, majd ismét 
visszaugrik a várakozó ciklus elejére. 

Ha az első karakter nem számjegy volt, akkor a sort mint BASIC utasítást 
közvetlen módban értelmezi és végrehajtja. A megfelelő értelmező kódokat 
kialakítva elugrik arra a rutinra, amelynek feladata a BASIC utasítás végrehaj- 
tása. Ezt a vektort is fel tudjuk használni saját céijainkra. Tegyük fel például, 
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hogy az adatok nem a billentyűzetről, hanem egy lemezen tárolt soros file-ból, 
vagy a user porton keresztül egy másik számítógépből érkeznek. Megoldhat- 
juk, hogy az egyik gépen elkészült programot ne kelljen sok munkával és 
esetleg sok hibával újra begépelni, hanem átvehessük-közvetlenül a géphez 
csatlakoztatott külső egységről. A közvetlen csatlakoztatásnál az adatokat 
küldő egységnek szüksége van egy illesztőre, ez lehet pl. egy beépített RS 
232-es illesztő, amely a legtöbb típusú gépre alkalmazható. 

Egy másik lehetőség pl. az AUTO utasítás megvalósítása. Ez az utasítás meg- 
könnyíti a programok begépelését azzal, hogy minden BASIC sor begépelése 
után automatikusan adja a következő sorszámot, és a kurzort a következő sor 
elejére pozicionálja. 


Átalakítás értelmező kódokká $304/$305 


Az Olvasó biztosan tudja, hogy a programsort a gép nem abban a formában 
tárolja, ahogyan azt begépeltük, hanem minden utasítást lerövidít egy egybyte- 
os értékké. Ennek a tárolási módszernek két előnye van. Az egyik a takarékos 
helykihasználás, hiszen pl. a PRINT szó tárolására öt byte helyett csak egy 
byte-ra van szükség. A másik előny az utasítások végrehajtása során mutatko- 
zik meg. Amikor az értelmező egy program feldolgozása közben egy értelmező 
kódot talál, azonnal végre tudja hajtani a megfelelő utasítást. Ha kód helyett 
teljes szavakkal kellene dolgoznia, akkor be kellene olvasnia a teljes szót, 
azután ellenőriznie kellene, hogy a szó létezik-e a szótárában. A program 
futását ezek a tevékenységek nagyon lelassítanák. 

Ugyanakkor a kódolást csak egyszer kell elvégezni (begépeléskor), nem pedig 
minden sor végrehajtása közben. 

Egyébként is begépelés közben a kódolás sokkal kevésbé időigényes, mint 
maga az adatbevitel, a legtöbb idő a várakozással telik el. 

Ha egy új utasítást értelmező kóddá akarunk alakítani, akkor ezt a vektort kell 
megváltoztatnunk. 

Az új rutinnak a beolvasott szót az új utasítástáblázat szavaival kell összeha- 
sonlítania. Ha az új szót sikerült a táblázatban megtalálni, a beviteli sorba 
beírhatjuk helyette a kódot. 


Az interpreter kódok visszaalakítása szöveggé $306/$307 


Ennek a vektornak az előzővel éppen ellentétes feladata van. Amikor egy 
programot listázunk, a kódot vissza kell alakítani szövegekké. 

A visszaalakításhoz a kódot az utasítástáblázat mutatójaként használjuk. Ez a 
vektor LIST vektor néven is ismert. Természetesen ezt a vektort is meg kell 
változtatnunk, ha új értelmező kódokat használunk. 

Egy másik felhasználási lehetőség a LIST utasítás módosítása. Pl. a jobb 
olvashatóság kedvéért minden utasítás után beszúrhatunk egy szóköz karak- 
tert a programlistába, vagy például a kettőspontokkal elváiasztott utasításokat 
külön sorba írhatjuk stb. 
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Egy BASIC utasítás végrehajtása $308/$309 


Minden kétséget kizáróan ez az egyik legfontosabb vektor. Az értelmezőnek 
arra a részére mutat, ahol az a BASIC utasításokat végrehajtja. A rutin először 
betölt egy karaktert a BASIC szövegből és megvizsgálja, hogy az értelmező kód 
vagy sem. A kódokat gyakran tokennek is nevezzük. 

Ha a karakter nem token, akkor az értelmező megpróbálja a sort "A — ..." 
értékadó utasításként kezelni és elágazik a LET utasításhoz. 

Egyébként a tokent annak a táblázatnak az indexeként használja, amely az 
utasítások címeit tartalmazza. Az utasítást a megfelelő szubrutinban végrehajt- 
ja és visszatér az ún. értelmező ciklus elejére, ahol a következő utasítást 
hasonló módon kezdi feldolgozni. A vektor segítségével tetszőleges saját BA- 
SIC utasítást illeszthetünk a meglévő utasítások közé. Az új utasítást valami- 
lyen karakterrel, pl. egy felkiáltójellel meg kell különböztetni az eredeti BASIC 
utasításoktól. A saját rutinunk erről a karakterről ismerheti majd fel a különle- 
ges utasítást. 

Ha azonban a $304/$305 vektort is módosítjuk, és ezáltal az új utasításhoz egy 
saját értelmező kódot rendelünk, akkor nincs szükség a megkülönböztető 
karakterre. Így a kódot magát megvizsgálva dönthetünk arról, hogy az eredeti, 
vagy az új rutinra kell elágazni. 


Egy BASIC kifejezés kiértékelése $304A/$30B 


Míg a fenti vektor a BASIC utasítások, addig ez a BASIC függvények vektora. 
Az értelmező ezt a vektort akkor használja, amikor egy kifejezés valamely 
elemét pontosan ki akarja számítani. Ez az elem lehet egy szám, egy változó 
vagy egy BASIC függvény. 

Ha a meglévők közé egy új függvényt szeretnénk beilleszteni, ezt a vektort kell 
módosítanunk. Az eljárás vonatkozhat numerikus és füzér függvényre egy- 
aránt. Akkor is ezen a ponton kell az értelmezőt módosítanunk, ha a megszo- 
kottól eltérően akarjuk a változókat tárolni, vagy új módszerrel (pl. hexadeci- 
mális alakban) szeretnénk adatokat beolvastatni. 


... P39. 46 


PROF1-ASS 64 V2.O 


1001 [/ Aa :OPT P1,OO 

1101 ; 

1201 3; A hexadecimalis es binaris szamok beolvasssa 
1501 ; 

1401 osok AUSRUCK s 330A : Kifejezest kíiertekelo vektor 
1501 AEBD - VEKTALT - $AEBD ; A regi rutin 

1601 H 

1701 gogD PP z 15 1! A valtozo tipusa 

1881 0975 CHRGET kal $75 

1901 0079 CHRGOT - CHRGET- 6 

2001 ; 

2101 BD7E ADDZIFFER -— $BD7E ; Egy byte-os szam t FAC 
2201 : 

2501 0035D FLOAT — s5D ! valos szamok tartomanya 
2401 006i EXP z $61 :; AR FAC kítevoje 

2501 : sz 

2601 E97E DVERFLOW s $EB977E ; OVERFLOW ERROR 


2701 1 


280: [Nini 

2901 1 

I001 OIIC A9 47 INIT 
310: OJIE AO 03 

320: 0340 ep 0A 03 

JO: 0343 BC OB 03 

3401 035346 60 

I50: j 

5601 0347 Ag 00 TEST 
370: 0349 85 oD 

380: 0348 29 73 00 

390: 0I4E C? 24 

4001 0350 FO 0A 

810: eI52 CI 25 

4201 0354 FO 41 

4IDi ; 

4401 o3Só 20 79 00 

450: 0359 4C BD AE 

4601 : 

4701 035C 20 8D 03 HEXZAHL 
4801 0S3SF 20 73 00 GETNEXT 
490£ 0362 98 OB 

5001 05364 C9 41 

510t 0566 90 1F 

520: 0368 CY 47 

SI0t OZ6GA BO 1B 

540: 0S6C I8 

S501 OZ6D E? 07 

560 0J6éF 38 ZIFFER 
"560r 0570 Eg 30 

5701 0372 3848 

580: 0373 AS 61 

580: 0375 FO 07 

5901 0377 18 

600£: 0378 69 04 

6101 9I7A BO VE 

620: eS7C 85 61 

SIZ0: 037E 68 NOCHNULL 
6401 0I37F FO DE 

6501 DZ8B1 28 7E BD 

660: 0384 4C SF 053 

670: s 

6801 0387 4C 79 BD END 
6901 s 

7001 OZBA 4C€ 7E BR9 OVER 
710: ; 

7201: OIBD A9 00 CLRFAC 
73501 OZBF AZ 0A 

740: 95391 95 5D LOOF 
750: 0393 CA 

760: 0394 18 FE 

7701 0596 60 

780: ; 

7901 05357 29 6D 03 BINZAHL 
8001 oz9A 20 73 00 GETBIN 
810: e39D CI 32 

820: 039F E? E6 

8301 ezA1 CS ZO 

840: 0sa 99 E2 

S5S8: osas Es 50 

860: 0ZA7 4E 

8701 espe AS 61 

880: ezen Fe g4 

8901 C3AC Eé J 

900: GIAE FE LA 

S10r 93BO €€ NULL 
520: GIB1 FO? E7 

930: G385 20 7E BD 

9401 EJBEé 4C 9ga 93 
JOSZC-8JBg 


NO ERRORE 


B28 


c TEST 
45 TEST 
AUSDRUCK 
AUSDRUCK ft 1 


$0 

TYP. 
CHRGET 
4" "2" 
HEXZAHL 
ey" 
BINZAHL 


CHRGOT 
VEKTALT 


CLRFAC 
CHRGET 
ZIFFER 
§"Ar 
END 
kzt! 
END 


47 
"o" 


EXP 
NOCHNULL 


4 
OVER 
EXP 


GETNEXT 
ADDZIFFER 
GETNEXT 


CHRGOT 
OVERFLOW 


wo 
910 
FLOAT ,X 


LOOF 


CLRFAC 
CHRGET 
sz 
END 
40" 
END 
we" 


EXF 
NULL 
ExP 
OVER 


GETEIN 
ADDZIFFER 
GETEIN 


: 
1 


A vektor az uj rutinhoz 


A tipuskapcsolo numerikus 
A kovetkezo kar. beolvasasa 
Hexadecimalis ? 


Binaris jegy ? 


A kapcsolo vissza 
es ugras a regi kiertekelesre 


A FAC torlese 

A kovetkezo karakter betoltese 
Szamjegy ? 
Kisebb mint "A" ? 
Nagyobb mínt "F" ? 

Az OFFSET figyelembevetele 


Atvaltas hexadecíiímalísra 
A karakter tarolasa 


AFAC B? 


Kitevo t 4 57 szam § 16 
A szam tul nagy ? 


A szamjeoy viísszatoltese 


Ha O, 22 hozzaadas felesieges 
A szamjegy hozzaadasa FAC-hoz 


A valos tartomany torlese 


A FAC torlese 
A kovetkezo karakter betoltese 


Nagyobb mint 127? 


Kísebb mínt 0 ? 
ASCII-rol hexadecímalisra 


A szam meg B? 


Duplazni ! 
Tul nagy ? 


A 0-t nen kell nozzaadni 
A szamjegy hozzuaadasa 
A kovetkezo kar. betoltece 


e5 


A rutin a decimális számjegyeket feldolgozó rutinhoz hasonlóan dolgozik, de 
annál egyszerűbb és áttekinthetőbb, mivel nem kell! tizedes törtekkel és kite- 
vőkkel bajlódnia. Ha a programot SYS 828 utasítással lefuttatjuk, a decimális 
írásmódhoz hasonlóan hexadecimális, ill. bináris számokat is begépelhetünk. 
Pl. a 


7$FFFF 
utasítás eredménye: 65535, a 
792101010 
utasítás eredménye pedig 42. 
A beírt hexadecimális szám nem csak négyjegyű lehet. A program úgy van 
megírva, hogy tetszőleges, a gép által kezelhető lebegőpontos számtartomány- 
ba eső hexadecimális számokat fel tud dolgozni, azaz olyanokat, amelyek 
maximálisan 31 hexadecimális számjegyet tartalmaznak. PI: 
?$FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
Az eredmény: 
2.12676479E -t- 37 
A teljes lebegőpontos számtartományt bináris számokkal nem tudjuk kihasz- 
nálni, hiszen még egy 78 jegyű szám decimális értéke is csak 3E t 23. 
A bővítést nemcsak a PRINT utasításokban lehet alkalmazni. A programban 
ezután minden olyan helyre, ahová eddig decimális számot írtunk, írhatunk 
bináris vagy hexadecimális számokat. Különösen érdekes lehet ez a POKE és 
PEEK, ill. a SYS utasításokban. Könnyebb megjegyezni például a videovezérlő 
kezdőcímét hexadecimális ($D000) alakban, mint decimálisan (53248). 
Pl.: A 3-as sprite bekapcsolása az új módszerrel: 
POKE $D0O15, PEEK($D0O15) OR 951000 
Az utasítás régi alakjából sokkal kevésbé szembetűnő a dolog logikája. 
POKE 53248 7- 21, PEEK(53248-- 21) OR 8 
Van azonban az új módszernek egy furcsa sajátossága. Az alábbi utasítás 
?7$ABCDEF 
hatására hibajeizési kapunk. Vajon miért? Ha a hexadecimális számot alapo- 
sabban szemügyre vesszük, felismerjük benne a DEF utasításszót. Mivel az 


értelmező először minden lehetséges szöveget átalakít kódokká , a DEF szóból 
is kódot képez, amit természetesen a saját gépi kódú rutinunk már nem tud 
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értelmezni. Ezt a hibalehetőséget egyszerűen kiküszöbölhetjük, ha az esetle- 
gesen előforduló utasításszavak közé egy szóköz karaktert írunk, pl: 


?7$ABCD EF 


Így megkapjuk a helyes 11259375 decimális értéket. A CHRGET rutin a szöveg 
közbeni szóköz karaktert éppúgy átlépi, mint a számjegyek közötti szóközt. 
Gondoljuk végig a program működésének logikáját. 

Első lépés a szokásos iniícializálás, amelyben a vektort a saját rutinunkra 
állítjuk. Ezután az értelmező rutinjaihoz hasonlóan töröljük a változótípust 
jelölő kapcsolót (a nulla érték numerikus változóra utal). Ezután beolvassuk a 
következő karaktert. Ha ez dollár vagy felkiáltójel, elágazunk az új rutinra. 
Egyébként a CHRGOT utasítással visszaállítjuk a kapcsolót, és visszatérünk az 
értelmező eredeti kiértékelő rutinjára. 

Az új rutin az alábbi programlépéseket végzi el: 

Először törli a lebegőpontos akkumulátort, az eredményt ugyanis ide fogja 
beírni. Ezután beolvassa a következő karaktert és megvizsgálja, hogy az karak- 
terjegy, vagy egy A és F közé eső betű. Ha ez a feltétel teljesül, a karaktert 
átváltja a megfelelő hexadecimális alakra, tehát pl. az "1"-ből $01, az "A"-ból 
$0A lesz. Most megszorozza a lebegőpontos akkumulátor tartalmát 16-tal, ha 
az nem nulla. A szorzással érjük el, hogy a számjegyek helyiértéke megfelelő 
legyen. A szorzást nagyon egyszerűen végezzük el. Az igazi lebegőpontos 
. szorzást végző rutin hívása helyett megnöveljük a 2-re vonatkozó kitevőt 
4-gyel. 

Az összeadás jóval kevesebb ideig tart, mint a szorzás. Miután ellenőriztük, 
hogy az összeadásnál nem keletkezett átvitel, ismét visszatöltjük az előbb 
leolvasott számjegyet és hozzáadjuk az FAC-hez. Ha a számjegy 0, akkor az 
összeadást nem kell elvégezni. Ez a cíklus mindaddig ismétlődik, amíg a 
CHRGET rutin a számhoz tartozó karaktert olvas be a szövegből. 

A bináris számokat a fentiekhez hasonlóan dolgozzuk fel. Az eljárást azonban 
lényegesen egyszerűsíti, hogy a 2-vel való szorzás nem egyéb, mint a kitevő 
növelése eggyel. A továbbiakban semmi eltérés nincs a hexadecimális és a 
bináris számok kezelése között. 
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3.3 A STRUKTURÁLT PROGRAMOZÁS 


Ebben a könyvben már nagyon sok szó esett a BASIC értelmező működéséről, 
és különösen hangsúlyozottan tárgyaltuk a BASIC utasításokat végrehajtó in- 
terpreter részt. Arról azonban még egyáltalán nem esett szó, hogy hogyan 
kezeli az értelmező a programstruktúrákat. A strukturált programozást az 
értelmező két utasítással támogatja; az egyik a 


GOSUB... RETURN 
a másik a 

FOR... NEXT 
utasítás. 


Az ilyen szerkezetű utasítások végrehajtása közben az értelmezőnek tudnia 
kell, hogy pl. a RETURN hatására a program melyik utasítására kell visszatér- 
nie, azaz a programnak mely részéről hívták a szubrutint. 

A NEXT utasítás végrehajtásához tárolni kell a ciklusmag első utasításának 
címén kívül a ciklus végértékét és a növekményt is, hiszen minden lépésben 
dönteni kell arról, hogy folytatódik vagy véget ér-e a ciklus. 

A RETURN és NEXT utasítások szükséges paramétereit elhelyezzük a tár egy 
rögzített területére. 

De mi történik akkor, ha több ciklust vagy több szubrutint skatulyázunk egymás- 
ba? 

Minden RETURN és NEXT utasítás számára lehetővé kell tenni, hogy hozzáfér- 
jen az utolsó szerkezeti egységből származó paraméterekhez. Az elvet már 
ismerjük a veremmel kapcsolatban: 

— amit utoljára tároltunk, azt vesszük legelőször elő (LAST IN -— FIRST OUT). Ez 
a tárolási mód tökéletesen megfelel a fenti szerkezetű egymásba ágyazott 
rutinok, ill. ciklusok egymás utáni végrehajtására. 


Milyen paraméterekre van szüksége a GOSUB utasításnak? 
Először is annak az utasításnak a címére, ahonnan a hívás érkezett. Másrészt 
az aktuális sorszámra, hiszen visszatérés után ennek is vissza kell állítani az 
eredeti értékét. Végül azért, hogy meg lehessen különböztetni a GOSUB utasí- 
tás verembeli adatait a FOR ciklus adataitól, az értelmező elhelyezi a verembe 
a GOSUB kódját is. A verem teljes tartalma tehát az alábbi: 


Veremmutató 


a GOSUB előtt a programmutató felső byte-ja 
programmutató alsó byte-ja 
sorszám felső byte-ja 
sorszám alsó byte-ja 


88 GOSUB kód $8D byte-ja 


Veremmutató 
a GOSUB után 


A GOSUB utasítás paraméterei öt byte-ot foglalnak el a veremben. Mivel a 
6510-es processzor veremmutatója nyolc bites, a verem mérete maximum 1 
lapnyi lehet: a $100-tól $1FF-ig. A korlátozott veremméret miatt nem lehet 
tetszőleges mélységben rutinokat és ciklusokat egymásba skatulyázni. Maxi- 
málisan 256/5 — 51 szubrutin paraméterei férnének el a veremben, ha az 
értelmező semmi mást nem tárolna itt. Mivel azonban ez nem így van, a verem 
tényleges kapacitása ennél valamivel kevesebb. 

Egy GOSUB utasítás végrehajtása előtt az értelmező mindig megvizsgálja, 
hogy a veremben van-e még elegendő hely a paraméterek számára. A vizsgá- 
latot elvégző rutin hívása előtt az akkumulátor tartalma a szükséges helyek 
számának fele. Például, ha az akkumulátor tartalma 3, akkor a veremben 6 
szabad tárcím szükséges a paraméterek számára. 

Ha már nincs annyi hely a veremben, akkor az OUT OF MEMORY (kevés a 
tárterület) hibaüzenetet kapjuk, ami nem egészen felel meg a tényleges hely- 
zetnek, hiszen a gép akkor is ezt a hibaüzenetet küldi, ha egy változó elhelyezé- 
sére már nem talál szabad tárterületet. A helyes üzenet a STACK OVERFLOW 
(verem túlcsordulás) lenne. 

A BASIC értelmező csak a $013E-től $1FA-ig terjedő területet használja verem- 
ként. A $0100-tól $0110-ig terjedő terület a lebegőpontos számok füzérré alakí- 
tásának munkaterülete, a $0100-tól $013E-ig terjedő területet pedig a szalagos 
olvasásnál bekövetkező hibák kezelése közben használja az értelmező. 
Hogyan hajtja végre az értelmező a RETURN utasítást? Először megvizsgálja, 
hogy a verem legtetején GOSUB kód van-e. 

Ha nem, akkor kiírja a RETURN WITHOUT GOSUB (GOSUB nélküli RETURN) 
hibaüzenetet. Egyébként beolvassa a következő négy byte tarta:mát, és ezek- 
ből visszaállítja a programmutató és a sorszám értékét. A veremmutatót visz- 
szaállítja arra a címre, ahová az a GOSUB utasítás végrehajtása előtt mutatott. 
Ezután visszaugrik az értelmező ciklusra, amely a program végrehajtását 
automatikusan a GOSUB utasítást követő utasításon folytatja. 


A FOR — NEXMT ciklus végrehajtásának elve teljesen azonos az előzőekkel, de 
annál egy kicsit bonyolultabb, hiszen több paraméter átmeneti tárolására van 
szükség. 


Veremmutató 


a FOR utasítás előtta  programmutató felső byte-ja 
programmutató alsó byte-ja 
sorszám felső byte-ja 
sorszám alsó byte-ja 
4. mantissza 
3. mantissza a ciklusváltozó 
2. mantissza végértéke 
1. mantissza 
Kitevő 89 


Előjel 

4. mantissza 

3. mantissza a lépésköz 
2. mantissza 

1. mantissza 

Kitevő 

a ciklusváltozó felő byte-ja 
a ciklusváltozó alsó byte-ja 
a FOR kódja $81 


Veremmutató a 
FOR utasítás után 


A fenti táblázat alapján látjuk, hogy a FOR-NEXT ciklushoz a veremben 18 
byte-ra van szükség. 
A végrehajtás lépései: Az értelmező először megvizsgálja, hogy a verem 
legfelső byte-ja FOR kód-e. Ha nem, akkor kiírja a NEXT WITHOUT FOR (FOR 
nélküli NEXT) hibaüzenetet. Egyébként megvizsgálja, hogy a NEXT utasítás 
után van-e változónév. Ha igen, akkor megkeresi a változó címét és összeha- 
sonlítja a verembeli változó-címmel. Ha a két cím egyenlő (vagy ha nincs a 
NEXT után változó), akkor beolvassa a változó értékét az FAC-be, és ehhez 
hozzáadja a veremben tárolt lépésközt. A kapott értéket összehasonlítja a 
ciklusváltozó végértékével. Az eredménytől függ, hogy a ciklus véget ér vagy 
folytatódik. Ha a ciklus lefutott, akkor megnöveli a veremmutató értékét 18-cal, 
ezzel eltávolítva a veremből a ciklus paramétereit, és visszatér az értelmező 
ciklushoz, ahol folytatódik a program végrehajtása. Ha a ciklusváltozó értéke 
még nem érte el a végértéket, akkor betölti a veremben tárolt programmutatót 
és sorszámot, a veremmutató értékét pedig változatlanul hagyja, hiszen a 
paraméterekre a következő NEXT utasításnál ismét szüksége lesz. 
Ha a NEXT utasításban van változónév, de a változó címe nem egyezik meg a 
veremben tárolt címmel, akkor az értelmező megnöveli a veremmutatót 18-cal 
és megvizsgálja, hogy ott szintén ciklusparaméterek vannak-e. A belső ciklus 
minden ilyen lépésben automatikusan lezáródik. 
Eddigi ismereteink elegendőek ahhoz, hogy új programszerkezetet építsünk az 
értelmezőbe. Azok az Olvasók, akik már programoztak PASCAL nyelven, bizto- 
san ismerik a REPEAT...UNTIL típusú ciklust. 
A ciklus ismétlődését ebben a programszerkezetben egy feltétel vezérli. A cik- 
lusmag végrehajtása mindaddig ismétlődik, amíg a feltétel teljesül. Pl. 

REPEAT 

esett 7 

UNTIL I — 10 


A ciklusmag I — 13-1 utasítását mindaddig sí ":ehajtjuk, amíg az I értéke el 
nem éri a 10-et. 

A FOR - NEXT ciklushoz hasonlóan az ilyen szerkezetű ciklus is lefut legalább 
egyszer a feltétel teljesülésétől függetlenül. 

Beépítése sok esetben egyszerűsíti a programírást. 
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Pl. a billetyűre várakozás az új utasítással: 


REPEAT : GET A$ : UNTIL A$c 27 


vagy még egyszerűbben 


REPEAT : UNTIL PEEK (197) € 564 


A 197-es tárcím tartalma ugyanis mindaddig 64, amíg le nem ütünk egy billen- 


tyűt. 


A P.40-es gépi kódú program beépíti az értelmezőbe a REPEAT. ..UNTIL szerke- 
zetű ciklusutasítást. 


Ládd 


PM. 


PROFI-ASS 64 V2.0O 


100: 
110: 
1101 
1201 
1301 
1401 
150: 
1601 
1701 
180: 
1991 
2001 
2101 
2201 
2501 
2401 
250: 
260: 
2701 
2801 
2901 
DI00: 
D101 
5201 
IZ01 
34091 
I50: 
5601 
3701 
3801 
3981 
4001 
8101 
4201 
43501 
4401 
4501 
4601 
4701 
4801 
4901 
5001 
5101 
520: 
SI0r 
5401 
SS0: 
560: 
5701 
580: 
5901 


oSSC 
03SC 


oso8 
A7E7 


0022 
0057 
0073 
09079 
097A 
0100 
A445 


ASFB 
ADBA 
A7RE 
AFOB 
A906 


oSIC 
OSIC 
03SE 
0540 
0343 
035346 


0347 
034A 
0s4c 


034E 
0351 


0554 
0357 
0359 
055B 
os5SD 
03SF 


0562 
0565 
0367 
09536a 
o36D 
056E 
oseF 
0371 


A? 
Ao 
ep 
8cC 
60 


20 
[DA 
Fo 


20 
4C 


20 
[oC 
Fo 
[DA 
Fo 
4C 


20 
Ag 
20 
20 
18 
98 
65 
48 


47 
05 
08 
09 


735 
21 


06 


2? 
E7 


75 
52 
07 
ss 
24 
08 


75 
os 
FB 
06 


7A 


... 


os 
03 


00 


AZ 
A? 


:OPT F,00 
"REPEAT - UNTIL" 


e TIT 


46 ses. 


UTAS - 

REGIUT - 

1 

ADR - 

SORSZ - 

CHRGET - 

CHRGOT - 

TXTPTR - 

VEREM a 

ERROR - 

; 

VEREMELL  m 

FRMNUM m 

INTER ha 

SYNTAX - 

NEXTUT - 

s; 
9 - 

INIT LDA 
LDY 
STA 
STY 
RTS 

; 

TEST JSR 
CMP 
BEER 

s 
JSR 
JMP 

[/ 

NEWBEF JSR 
CMP 
BER 
CMP 
BEO 

SYNERR JMP 

; 

REPEAT JSR 
LDA 
JSR 
JSR 
CLC 
TYA 
ADC 
PHA 


REPEAT — UNTIL - CIKLUSB 


3308 
$A7E7 


522 

$39 

$73 
CHRGET tó 
CHRGOT$1 
$100 
39445 


$ASFB 
$ADBA 
$A7RE 
$FAFOB 
$A906 


828 

a£ TEGBT 
$2 TEST 
UTAS 
UTASt1 


CHRGET 
FűgK 
NEWBEF 


CHRGOT 
REGIUT 


CHRGET 
6" R" 
REPEAT 
erus 
UNTIL 
SYNTAX 


CHRGET 
us 
VEREMELL 
NEXTUT 


TXTPTR 


.. 


Az utasítas vegreh. vektora 


A regi rutín 


A hibauzenet cime 
Aktualis sorszam 


Processzor verem 
A híbauzenet kíírasa 


A szabad hely vizsgalata 
Numerikus kifejezes betoltese 
Az interpreterciklus 


SYNTAX ERROR 
A kovetkezo utasitas keresese 


Vektor az uj rutinra 


Kovetkezo karakter beolvasasa 
Uj utasítas ? 


A kapcsolo visszaallítasa 
es a regi utasítas vegrehaít. 


A kovetkezo karakter 
Repeat-utasitas ? 


Until-utasitas ? 
Egyebkent SYNTAX ERROR 
Mutato a kovetkezo karakterre 


Van eleg hely a veremben ? 
A kovetkezo utasítas keresese 


A kovetkezo utasitas offset-ije 
Osszeadas es 
tarolas a veremben 
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600r 
6101 
620: 
630: 
6401 
650r 
660: 
6791 
6881 
6981 
7001 
7101 
7201 
7501 
7801 
7501 
7601 
7701 
7803 
79091 
8001 
8001 
8101 
8201 
8301 
8401 
8501 
860: 
8701 
880: 
8901 
9901 
910: 
92091 
9I0t 
9401 
9501 
9601 
9701 
7801 
9991 


0372 
0574 
0376 
0377 
0579 
057A 
057C 
057D 
057F 
0580 


ess 
0386 
0388 
0I8aB 
ozec 
058D 
03970 
0392 
0398 
0395 


0397 
0OZ9A 
o059Cc 
0I9F 
osAai 
o0sA4 
0JA6 
03A97 
OZAB 


BZAE 
OZAF 
OZBO 
03B2 
[/D3-ni 
0584 


0SB7 
0389 


10001  OSBB 
1910:  OSBD 
10201 

10305  0O3CO 
033C-03D4 
NO ERRORS 


Próbáljuk ki az új BASIC bővítést! 


Do 25 


69 05 


4C RE 


A9 CD 
85. 22 
A9 03 
4C 45 


55 4E 


A7 
90 UNTIL 


AD 


01 


01 
01 
91 
91 
A7 


; 
RPTVEGE 


A7 


[4 
RPTERR 


A4 
: 
54 TEXT 


LDA 
ADC 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
JMP 


18SR 
BEO 
JSR 
TAY 
TEX 
LDA 
ECMPF 
BNE 
TYA 
BNE 


LDA 
STA 
LDÁ 
STA 
LDA 
STA 
LDA 
STA 
JMP 


TXA 
CLC 
ADC 
TXA 
TXS 
JMP 


LDA 
sSTA 
LDA 
JMP 


: ASC 


TXTPTRF1 
4 


SORSZ 
SORSZ§1 
8"R" 
INTER 


CHRGET 
SYNERR 
FRMNUM 


VEREM61,X 
8"R" 
RPTERR 


RPTVEGE 


VEREM$2,X 
SORSZ-1 
VEREM£3,X 
SORSZ 
VEREM-4, X 
TXTPTR-1 
VEREM$5,X 
TXTPTR 
INTER 


45 


INTER 


$C TEXT 
ADR 

$2 TEXT 
ERROR 


Sorszam 
színten a verembe 


es a REPEAT-kod is 
a verembe 
Víssza az interpreter ciklushoz 


"Van feltetel ? 


Ha níncs, hiba 
Kíertekeles 

Az eredmeny tarolasa 

A veremmutato X - be 

Az utolso verem bejegyzes 
REPEAT —- kod ? 

Ha nem, hiba 


A kifejezes hamis, cíklus vege 


Sorszam 


es program mutato 
A verembol az 


Az interpreter-ciíklusba 
Veremmutato 


3 - tel novekszík 


Víssza az interpreter-ciklusba 


Mutato a híbauzenetre 


"UNTIL WITHOUT REPEAT" 


Az egyszerűség kedvéért a REPEAT utasítást a !R, az UNTIL utasítást a !U 
karakterekkel jelöljük. 
Fordítsuk le a programot, majd aktivizáljuk a SYS 828 utasítással. Írjunk egy kis 
BASIC programot az új utasítás alkalmazásával: 


... 


100 
110 
129 
150 


v D 


kád 


100 
110 
120 
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P41. 


1-0 
!R 
IzI$1 2 
1U 15-10 


PRINT 


P42. 


1-9 
R 
IzI41 3: 


PRINT 


Lásd 


I 


9446 


adi 6 e 


program kiírja a számokat 1-től 10-ig. Az új ciklusszerkezeteket egymásba 
skatulyázhatjuk: 


130 !R 

1409 J-J]$1 : PRINT "Jz"zJ 
159 !"U J53 

169 !U Izs5 


A futtatás eredményeként az I változó értéke változik 1-től 3-ig, és ! minden 
rögzített értéke mellett J szintén változik 1-től 3-ig. 

Természetesen ezt a feladatot FOR-NEXT ciklussal egyszerűbben lehet megol- 
dani. A REPEAT-UNTIL szerkezetű ciklusokat elsősorban olyan feladatok meg- 
oldásánál célszerű alkaimazni, amelyekben nem lehet, vagy nem akarjuk előre 
megadni, hogy hányszor fusson le a ciklus. A futások számát függővé tehetjük 
pl. egy billentyű leütésétől. 

Különösen nagy segítséget jelent ez a szerkezet az iterációs feladatokban, 
amelyekben a ciklus lefutásának száma egy bizonyos pontosság elérésétől 
függ. Ilyen pl. a négyzetgyökvonás a Newton-féle iterációs módszerrel. 


köss PG. kásás 

100 INPUT "MIBOL VONJAK NEGYZETGYOKOT"3A 
119 X1-A 

120 !R 

1390 XOzXI1 


199 XI1z(XO4$A/XB) /2 
150 !U ABS(X1-Xg) Cc1E-8 
160 PRINT "A GYOK: "X1 


A programban mindaddig folytatjuk a gyök közelítését, amíg a két egymást 
követő érték abszolút értékben vett eltérése nem lesz kisebb mint 1E —8. Az 
iterációs eljárás SOR függvénnyel azonos értéket kell hogy adjon. 

" Hasonlóan egyszerű a végtelen ciklus programozása REPEAT-UNTIL szerke- 
zettel. A kilépés feltételét úgy kell megválasztani, hogy az sohase teljesüljön. 


44 at at P34. 44. 
190 !R 
110 PRINT TI 


1209 !U 1-0 
A fenti program sosem áll meg. 


A REPEAT-UNTIL szerkezetű ciklusok végrehajtása sokkal gyorsabb, mintha 
ugyanezt IF... GOTO szerkezetű utasítással oldottuk volna meg. 

Míg az UNTIL utasítás végrehajtása során az ugrási címet a veremből kell 
betölteni, addig az IF...GOTO szerkezetnél minden lépésben újra meg kell 
keresni a GOTO utasításban szereplő sor címét. 

Ráadásul a REPEAT-UNTIL szerkezet a programot is sokkal áttekinthetőbbé 
teszi. 

Nézzük meg, hogyan működik a gépi kódú program. 

A korábbi programokból már jól ismert inicializálás után a P.40-es program 
először megvizsgálja, hogy a végrehajtandó utasítás új, vagy eredeti BASIC 
utasítás. Ha nem talál felkiáltójelet, akkor a vektort visszaállítja az eredeti 
értékre. Egyébként beolvassa a következő karaktert, és megvizsgálja, hogy az 
R vagy U betű-e. 

Az eredménytől függően vagy elágazik a REPEAT, ill. az UNTIL programrészre, 
vagy kiírja a SZTNTAX ERROR hibaüzenetet. 
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A REPEAT ágon a programmutatót beállítjuk a CHRGET rutin hívásával a 
következő karakterre, majd megvizsgáljuk, hogy van-e elegendő helye a ve- 
remben. Ha igen, akkor a NEXTSTAT rutinnal megkeressük a következő utasí- 
tást, amelynek relatív címe az Y regiszterben található. Ehhez hozzáadjuk a 
programmutató értékét (így megkapjuk az abszolút címet) és ezt elhelyezzük 
a veremben. Ezután az aktuális sorszámot is tároljuk a veremben, majd egy 
R karaktert annak jelölésére, hogy a paraméterek a REPEAT utasításhoz tartoz- 
nak. A paraméterek teljesen azonosak a GOSUB utasításnál tárolt paraméte- 
rekkel. 

Az UNTIL programrészben megvizsgáljuk, hogy a kiugrási feltétel teljesül-e. 
A vizsgálat eredményét az Y regiszterben tároljuk. Most betöltjük az X regisz- 
terbe a veremmutatót és összehasonlítjuk a veremben tárolt legfelső elemet 
az R karakterrel. 

Ha az eredmény negatív, akkor kiírjuk az UNTIL WITHOUT REPEAT (REPEAT 
nélküli UNTIL) hibaüzenetet. A hibaüzenet kiírása előtt az utolsó karakter 7. 
bitjét 1-re kell állítani (a shiftelt karakterek jelölése). 

Ha a legfelső karakter R volt, akkor a továbbiak a feltétel teljesülésétől függnek. 
Ha a feltétel teljesül, akkor betöltjük a veremből a sorszámot és a programmu- 
tatót, és ugrunk az értelmező ciklushoz. 

A veremből a paramétereket nem PLA (mert ez módosítaná a veremmutató 
értékét), hanem LDA VEREM, X utasítással töltjük vissza, mivel előtte a verem- 
mutatót az X regiszterbe másoltuk. Így a veremmutató értéke változatlan ma- 
rad, és az UNTIL többi paraméterei a veremben hozzáférhetők lesznek. 
Végül, ha a kiugrási feltétel teljesült, a veremmutató értékét megnöveljük öttel, 
ezzel törölve a veremből a végrehajtott ciklus paramétereit, és folytatjuk a 
BASIC program futtatását. 
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3.4 AZ ÚJ UTASÍTÁSSZAVAK BEÉPÍTÉSE 


Az új utasítások beépítésének legegyszerűbb módja az lenne, ha elláthatnánk 
ezeket egy új névvel, amelyeket a BASIC programon belül minden megkötés 
nélkül lehetne használni. Az utasítások nevéhez az ún. utasításszavakat vagy 
kulcsszavakat az értelmező tokenek (egykarakteres szimbólumok) formájában 
tárolja, amelyeket másképpen értelmező kódoknak is nevezünk, és amelyek 
értékei a $80-tól $FF-ig terjedő tartományba esnek. 

A Commodore 64-es ezen a tartományon belül csak a $80-tól $CB-ig terjedő 
értékeket használja, ezen kívül csak a $FF kód kötött, ami a Pl-nek felel meg. 
A $CC (2049-től a $FE (254)-ig terjedő kódokat szabadon használhatjuk, azaz 51 
új utasítást építhetünk be a kódrendszerbe. Gondoljuk végig, hogyan lehet ezt 
a feladatot megoldani. 

Először is készítenünk kell egy olyan rutint, ami a BASIC sor tárolása közben 
az új utasításszavakat tokenné alakítja. Azután szükség van egy olyan rutinra, 
amely a program futása közben felismeri az új tokent, és meghívja azt a rutint, 
amely az új utasítást végrehajtja. Módosítanunk kell a LIST rutint is, hiszen 
eredeti formájában a program listázása közben nem tudja az eddig ismeretlen 
tokent szöveggé alakítani. Célszerű az új utasításszavakat a hozzájuk tartozó 
rutinok címével együtt egy táblázatba foglalni, ahogyan azt az értelmező is 
teszi. 

A BASIC vektorok között van négy olyan, amely kiváló segédeszköz lehet 
elképzelésünk megvalósításában. 

Ezek közül kettőt már ismerünk: a BASIC utasítások végrehajtására ($308) és 
a függvények kiértékelésére ($304A) szolgáló vektorokat. 

A tokenek szöveggé és a szövegek tokenné alakításához szükségünk lesz 
további két vektorra, amelyek a $304-es, ill. a $306-os címen találhatók. 

A rutinokat csak egyszer kell precízen elkészíteni, a további kulcsszavak beil- 
lesztése igen egyszerűen megoldható; a már meglévő táblázatot ki kell egészíi- 
teni az új utasításszóval és az új rutin kezdőcímével. Az új utasítások beilleszté- 
sének ez a módja hatékonyabb az előző módszernél. Nem lassítja a végrehaj- 
tást a megkülönböztető karakter (a felkiáltójel) azonosítása. Ugyanakkor a 
BASIC programban is jobban mutat a szöveges REPEAT utasítás a IR jelölés- 
nél. 

Mielőtt nekilátnánk megírni azt a gépi kódú rutint, amely egy új kulcsszót 
tokenné alakít, érdemes tapasztalatot meríteni az értelmező hasonló rutinjából. 
Feltehetően kisebb módosításokkal alkalmassá tehetjük az általunk kitűzött 
feladat megoldására. 

A P.45 a ROM megfelelő részének disassemblált listája. 


94369t P45. ká dd 


PROFI-ASS 64 V2.0 


100: AS7C .OPT P 

1101 , 

1201 1 Atalakitas token-ne, ROM rutin 
1501 s 

140: 3 Kulonleges token-ek 
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1501 
1601 
1701 
18081 
1991 
2001 
2101 
2201 
2301 
2401 
2501 
2601 
2701 
28BO: 
2901 
I001 
I101 
I201 
I501 
3401 
I501 
3601 
I701 
I801 
3901 
4001 
4101 
4201 
4301 
4401 
4501 
4601 
4701 
4801 
4901 
5201 
510r 
520: 
5301 
540: 
5501 
5601 
5701 
5801 
5901 
6001 
610: 
620: 
SI0r 
6401 
6491 
6501 
6601 
6701 
68091 
6901 
7001 
7101 
7201 
73501 
7401 
7401 
7501 
7601 
7701 
7801 
7901 
8001 
8101 
8201 


00853 
o08F 
9099 


0008 
0008 
0071 
0022 
000F 
097A 
0200 


ADJE 


A57C 


A57C 
AS7E 
AsSBoO 
A582 
As85S 
A587 
A589 
ASBB 
ASBC 


ASBE 
A590 
AS592 
A594 
A596 
A598 
A59A 
AS9C 
AS9E 
ASAO 
AS5A2 
A5A4 
ASA6G 
ASAB 
ASARA 
ASAC 
ASRE 
ASBO 
ASB2 
ASBB 
ASBS 


ASB6 
A5B7 
ASB8B 
ASBB 
ASBC 
ASBF 
A5CI 
ASC3 
ASC5 
ASC7 


A5C9 
ASCA 
A5CB 
ASCE 
ASD1 
ASDS 
ASD4 
ASD6 
ASDB 
ASDA 


02 


02 


AD 


01 
01 


, 
DATA 
REM 
PRINT 


, 

CHAR 
COUNT 
PNT 
RUOTE 
FLAG 
TXTPTR 
BUFFER 


, 
TABLE 


; 


NEXTCHAR 


, 
NORMAL 


SKIP 


SKIP1 


, 
CMPFLOOP 


TESTNEXT 


TAKCHAR1 


, 
TAKCHAR 


43 
$71 
322 
15 
37A 
$200 


$AD09E : 
$A57C ; 


TXTPTR , 
84 ; 
FLAG ; 
BUFFER,X 3 
NORMAL 

$sFF : 
TAKCHAR ; 


NEXTCHAR 


ve ; 
TAKCHAR ; 
CHAR , 
$OUOTE : 
BETCHAR , 
FLAG g 
TAKCHAR ; 
ve?" ; 
SKIPF 
PRINT H 
TAKCHAR 
eg" ; 
SKIP1 

repat ; 
TAKCHAR ; 
PNT s 
40 

COUNT ; 


TXTPTR ; 


BUFFER,X 3 


TABLE,Y 
CMPLOOP 
4580 
NEXTCMD 
COUNT 
PNT 


BUFFER-5S,Y3 
BUFFER-S,Y; 
ENDE hi 


di" 
SKIP2 
$DATA- "a" 4 
SKIP3 


Az aktualís karakter 

Az utasitasszavak szamlaloja 
Mutato az atalakitott sorra 
Idezojel 

Kapcs.a DATA es REM utasítasnal 
Mutato az atalakítando sorra 
Bevíteli puffer 


Az utasítasok tablazata 
ROM —- rutin 


Mutato az elso karakterre 
Mutato az atalakított sorra 

A kapcsolo torlese 

Egy karakter beolv. a pufferbol 


A "Pi" kodja ? 
Ha IGEN, a karaktert atvenni 
egyebkent atlepni 


Szokozkarakter ? 

ha igen, akkor atvenni 
A karakter tarolasa 
Idezojel ? 

Igen 

A kapcsolo vízsgalata 
DATA - mod,atvenni 
Kerdojel ? 


PRINT - koddal helyettesíteni 
Kisebb, mint DB ? 


Kisebb, mint "(" ? 
Ha igen,akkor a kar.-t atvenni 
Sorbeli mutato tarolasa 


A kulcsszavak szama m 0 


Sorbeli mutato tarolasa 


A tablazatbeli es a sorbeli 
mutato novelese 
Karakter a pufferbol 


Osszehasonlítas a kulcsszoval 
Ha egyenlo 52 kovetkezo kar, 
Utolso betu ? 

Egyebkent a mutato a kov.ut,-ra 
Ha megvan 52? szamt$BO a kod 


- A mutato visszatoltese 


A kod tarolasa 
A kapcsolo vísszaallítasa 
Sorvege ? 


Elvalaszto karakter ? 
DATA - kapcsolo torlese 
A "DATA"-kodja 


8301 ASDC 85 OF SKIP2 STA FLAG 1; "DATA"-nal a 6.bít beallitasa 


8401 ASDE 38 SKIPJB SEC 
8501 ASDF E9 55 SBC $REM-":" 4; A "REM"-kodja 
8601 ASE1 DO 9F BNE  NEXTCHAR 3; Nem, kov. karakter beolvasasa 
8701 ASEJ 85 08 STA CHAR ! 0 byte tarolasa "REM"-nel 
8801 ASES BD 00 02 REMLOOP LDA BUFFER,X 
89091 A5E8B FO DF BERG  TAKCHAR j Ha sorveg 52? a kar.-t atvenni 
9901 ASEA CS 08 CMP  CHAR ; "" vagy REM vagy DATA 
9101 ASEC FO DB BEG TAKCHAR , Igen ? 
9201 ASEE CB GETCHAR INY ? 
9301 ASEF 99 FB 01 STA  BUFFER-S,YIj A karakter atvetele 
9401 ASF2 EB INX 
9501 ASF3 DO FO BNE  REMLDOP 
9601 , 
9701 ASF5 A6 7A NEXTCMD LDX TXTPTR !; Sormutato a szo kezdetere 
9801 ASF7 E6 OB INC COUNT ; Szamlalo a kov. kulcsszora 
9991 ASF9 CB WEITER INY 
10001  ASFA B9 9D AD LDA TABLE-1I,Y j; A kovetkezo betu 
10101  ASFD 10 FA BPL WEITER ,! A szonak nincs vege 
10201 ASFF B9 97E AO LDA TABLE,Y 
10301 A6GOZ DO B4 BNE TESTNEXT 4 A kov. kulcsszo vizsgalata 
10401 , 
10501 A6óDg4 BD 00 02 LDA  BUFFER,X 
10601 A607 10 BE BPL TAKCHAR1i ; Kar. atv.valtozatlan formaban 
10701 ; 
10801 A609 99 FD 01 ENDE STA BUFFER-3,Y;z A puffer lezarasa 0-val 
10901 , 
11901 AGDC C6 7B DEC TXTPTRf1 
111015  AGOE A? FF LDA ú$s$FF ! TXTPTR $01FF-re, BUFFER-1 
11201 A610O 85 7A STA. TXTPTR 
1130 A612 60 ü RTS 
A57C-A613 
NO ERRORS 


Az átalakítandó BASIC sor a $200-tól $258-ig terjedő beviteli pufferban van. 
A TXTPTR ($7A/$7B) a sorban közvetlenül a sorszám utáni első karakterre 
mutat. Ez a mutató bekerül az X regiszterbe. Az X regiszter mindvégig az 
átalakítás előtt álló, az Y regiszter pedig a már átalakított sorra mutat. A kap- 
csoló törlése után a rutin betölti a sor első karakterét. Ha a karakter kódja 
nagyobb, mint $7F, akkor megvizsgálja, hogy egyenlő-e $FF-fel. Ha igen, akkor 
a karaktert (Pl) változatlanul tárolja, egyébként kihagyja a további vizsgálatból, 
azaz megnöveli eggyel a mutatót, és rátér a következő karakter vizsgálatára. 
Ha a kód nagyobb, mint $7F, akkor a hetedik bitje biztosan egy, ami arra utal, 
hogy a SHIFT billentyűvel együtt ütötték le a karaktert. Ezeket az ún. shiftelt 
karaktereket a rutin átlépi. 

A további vizsgálatok kiszűrik a különleges karaktereket, ezeket ugyanis külön 
eljárással kell feldolgozni. A szóköz karaktert például a rutin változatlan formá- 
ban tárolja. Az éppen vizsgált karaktert (ha nem szóköz) mindig a CHAR nevű 
változó tartalmazza. Ha ez idézőjel, a rutin elágazik a GETCHAR rutinba, amely 
a következő karaktereket egészen a bezáró idézőjelig változatlan formában 
tárolja. 

A FLAG változó jelzi, ha az aktuális sor DATA utasítást tartalmaz. Ekkor ugyanis 
a DATA kulcsszót követő szöveg ismét változatlanul kerül át a programterület- 
re. A kérdőjelet a rutin helyettesíti a PRINT tokenjével. A tényleges átalakítás 
akkor kezdődik, amikor a rutin számjegyet, kettőspontot vagy pontosvesszőt 
talál. Ezek természetesen változatlanok maradnak. 

Az átalakított sorbeli mutató a PNT változóba kerül, a sorban szereplő kulcssza- 
vak számát jelölő változó értéke nulla lesz. A kulcsszavak azonosítása a 
CMPLOOP címen kezdődik. A rutin a pufferban tárolt karaktert összehasonlítja 
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a táblázat első betűjével. Az összehasonlítás mindaddig folytatódik, amíg az 
eredmény nem lesz negatív. Ekkor a rutin megvizsgálja, hogy a kódok közötti 
különbség egyenlő-e $80-nal. Ebben az esetben ugyanis a karakterek abban 
különböznek egymástól, hogy az egyik shiftelt, a másik nem. A táblázatban a 
kulcsszó utolsó betűje mindig shiftelt, a $80 különbség tehát azt jelzi, hogy az 
utasítást megtaláltuk a táblázatban. Az értelmező kódot ekkor az akkumulátor 
tartalma és a COUNT (az utasítás sorszáma) változó közötti logikai VAGY (OR) 
művelet eredménye adja. 

Ha a betűnkénti összehasonlítás negatív eredménnyel zárul, a NEXTCMD rutin 
megkeresi a táblázatban a következő utasítás kezdetét, a sorszámot megnöveli 
eggyel, és a hasonlítás kezdődik elölről. A táblázat végét egy nullabyte jelzi. 
Ha a keresés eredménytelen volt, akkor a rutin a szöveget változatlan formá- 
ban tárolja. 

A TAKCHAR címkétől kezdődik a tárolás — kódolva vagy eredeti formában. 
A különleges karakterek tárolását néhány mellékművelet is kíséri: 

A kettőspont után törlődik a FLAG változó, amit az értelmező a DATA utasítás 
felismerésekor állít be újra. A rutin a REM utasítást követő karaktereket (a sor 
végéig) is változatlanul hagyja és a REMLOOP ciklusban tárolja. A REM-et egy, 
az aktuális karakter helyére beírt nulla jelzi. 

A rutin az ENDE címkével ér véget, ahol az átalakított puffert egy nullával 
lezárja, és a TXATPTR mutatót ismét az adatbeviteli puffer elejére állítja. 

A ROM rutint úgy kell átírnunk, hogy az, miután a saját belső táblázatában nem 
találta meg az utasításszót, folytassa tovább a keresést egy általunk készített 
táblázatban. Rögzítenünk kell azt is, hogy mi legyen az új utasítások értelmező 
kódja. A legjobb, ha a kódolást a $CC-től kezdjük, ott, ahol az eredeti BASIC 
utasítások kódjai véget érnek. 
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PROF1-ASS 64 VW2.0 


1001 Coo0 : OPT P,Oo0 

110: ; 

1201 ; Sajat token-ek 

1501 ; i 

140: 3 Kulonleges token-ek 

1501 ; 

1601 0085 DATA z $83 

1701 oo8F REM z $s8F 

180: 0999 PRINT - $99 

190: ; 

2001 0008 CHAR a 8 

2101 0008 COUNT - 11 

2201 0971 PNT — $71 

2301 0022 EUOTE m- $22 s, Idezojel 

2401 000F FLAG z 15 

2501 007A TXTPTR - $7A 

2601 92909 BUFFER mm $200 1 Beviteli puffer 

2701 ; 

280: A09E TABLE mm $AOTE : Az utasíitasok tablazata 
2901 k 

300: Coo0o drzz $3CO00 ; Az uj rutin 

53105 ; 

I20£ COO A6 7A LDX TXTPTR ,! Mutato az elso karakterre 
I350£ COo22 AD 04 LDY 834 1 Mutato az atalakitott sorra 
3401 CO04 84 OF STY FLAG : Kulonleges kar.-ek kapcsoloja 
3501 CoO6 BD 00 02 NEXTCHAR LDA BUFFER,X s; Egy karakter beolv. a pufferbol 
3601 CooY 10 07 BPL NORMAL 

37981 COOB CY FF CMP $$FF tt A "Pi" ködja 9 
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380: 
3901 
3001 
4101 
4201 
4501 
4401 
450: 
4601 
4701 
43801 
4901 
500: 
510: 
5201 
5301 
5401 
S50: 
5601 
570: 
5801 
5901 
6001 
6101 
6201 
6501 
640: 
6401 
6501 
6601 
6701 
6801 
6901 
7001 
7101 
7201 
7301 
7401 
7401 
7501 
7601 
7701 
7801 
7991 
8001 
8101 
820: 
8I0r 
8401 
850: 
860: 
8701 
880: 
890: 
900: 
910: 
9291 
950: 
940: 
950: 
960: 
970: 
98BO: 
9908 
1000£ 
1910: 
1920: 
100: 
1930: 
1050: 


CooD 
CogoF 
Coi10 


Co12 
Co14 
CB16 
Ce18 
Co1a 
coic 
Co1E 
Co20 
Co22 
Co24 
Co26 
Co28 
Co2A 
Co2C 
CO2E 
Coso 
Co3z2 
CcCos4 
Co36 
CosS7 
cos? 


CO3A 
CO3B 
cezc 
COZF 
Ce49 
co43 
Cg45 
C047 
Cg49 
Cca4B 


Co4D 
Co4E 


" C04F 


Ce52 
Co54 
C956 
Co57 


Co59, 


COSB 
CoeSD 
CesF 
Cosi1 
Co62 
Co64 


C9g665 . 


Cosa 
CO6GB 
Co6D 
Co6SF 
C071 
Cc072 
Ce75 
C075 


C278 
C37A 
cCo7c 
Co7D 
coso 
Co82 
coss 
C087 


sF 


oB 


AG 


01 


01 


AB 


AD 


; 
NORMAL 


SKIP 


SKIPI1 


: 
EMPLOOP 


TESTNEXT 


TAKCHAR1 


, 
TAKCHAR 


5KI1P2 
SKIP5 


REMLOOP 


GETCHAR 


NEXTCMD 


WEITER 


TAKCHAR 


NEXTCHAR 


ér. 
TAKCHAR 
CHAR, 
$OAUJOTE 
GETCHAR 
FLAG $ 
TAKCHAR ; 
e"? ; 
SKIP 
$PRINT ; 
TAKCHAR 
"9" ; 
SKIP1 

; éádb Tá ; 
TAKCHAR s 
PNT : 
LA] 

COUNT MG 


TXTPTR 


BUFFER,X 3 


TABLE,Y 
CMPLOOP 
"V$89 " 
NEXTCMD 
COUNT 
PNT 
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BUFFER-S,Ys 


no ; 
ENDE ; 
ése ; 
SKIP2 
$DATA—":" ; 
SKIPD5 

FLAG ; 
REM" s" 7 
NEXTCHAR 3; 
CHAR : 
BUFFER,X 
TAKCHAR ; 
CHAR H 
TAKCHAR ; 
BUFFER-S,Y3 
REMLOOP 
TXTPTR 
COUNT t 
TABLE-1,Y s 
WEITER , 
TABLE,Y 
TESTNEXT ; 
NEWTOK ; 


Ha IGEN, a karaktert atvenni 
egyebkent atlepni 


§ 
Szokozkarakter ? 
akkor atvenni 


A karakter tarolasa 
Idezojel ? 


DATA uzemmod ? 

Ha igen, atvenni 

Kerdojel ? 

PRINT - koddal helyettesíteni 
Kisebb mint 0? 

Kísebb mint "KC" ? 

Ha igen,akkor a kar.-t atvenni 


Sorbeli mutato tarolasa 


A kulcsszavak szama 5 8 


mutato novelese 
Karakter a pufferbol 


Osszehasonlitas a kulcsszoval 
Ha egyenlo m2? kovetkezo kar. 
Utolso betu ? 

Egyebkent a mutato a kov.ut.-ra 
Nr 4 $80 5 Interpreterkod 

A mutato visszatoltese 


A kod tarolasa 

A kapcsolo visszaallítasa 
Sorvege ? 

Elvalaszto karakter ? 

A "DATA"-kodja ? 

"DATA"-nal a 6.bít beallitasa 
A "REM"-kodja ? 

Nem, kov. karakter beolvasasa 
A karakter. tarolasa 

Ha sorveg 52 a kar.-t atvenni 
"5. vagy REM vagy DATA 

Igen ? 


A karakter atvetele 


Szamlalo a kov. kulcsszora 


A kovetkezo betu 
A szonak nincs vege ? 


A kov. kulcsszo vízsgalata 
Az uj tablazat hasznalata 
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10960:  COB9 BD 09 02 NOTFOUND LDA BUFFER,X 


1070: COBC 19 BD BPL  TAKCHARI 1 A karakter atvetele 
10801 ; 
10981  COBE 99 FD 01 ENDE STA BUFFER-3,Y; A dírektmod linkbyte 5 0 
110901 ; 
111091 CO91 C6 7B DEC TXTPTR-61I 
11291 CoO93 A? FF LDA H$FF ; TXTPTR $01FF-re, BUFFER-1 
11301 coys 85 7A STA TXTPTR 
11481  C0O97 60 RTS 
11501 s 
11601 3; Az uj utasitasok feldolgozasa 
11781  CO9YB AB 00 NEWTOK LDY §O zj Mutato az uj tablazat kezdetere 
11881 6 COYA B9 C3 CO LDA NEWTAB,Y s; Az 1. kar. beolv. a tablazatbol 
11991  COYD DO 02 BNE  NEWTEST 
129081 j! 
12101 CO9YF CB NEWCMP INY 
12101 COAB EB INX 
12201  COAL1 BD 00 02 NEWTEST LDA BUFFER,X ; Az uj tablazat osszehasonlíto 
12301 COgAS§ 58 SEC 1 rutinja 
12401 COAS F9 C3 CO SBC  NEWTAB,Y 
12501 COA8 FO F5 BERG  NEWCMP 
12601 CORA CI 80 CMP 45380 
12701 COAC DO 04 BNE  NEXTNEW 1 A kov. uj utasítas vizsgalata 
12801 COAE 05 BB ORA COUNT 1 Megvan 
12901 COBO DO 99 BNE TAKCHAR1 34; Feltetlen ugras 
15001 , 
13101 COB2 A6 7A NEXTNEW LDX TXTPTR 
153201:  COB8$ E6 BB INC COUNT 1; A token szamanak novelese 
153501 COoB6ó CB WEITERI1 INY 
13401 COB7 B9 C2 CO LDA  NEWTAB-1,Yi: Mutato a kov. kulcsszora 
1350: COBA 10 FA BPL WEITER1 
153601 COBC B9 C3 CO LDA  NEWTAB,Y 
1370: COBF DO EO BNE  NEWTEST ! Osszehasonlítas 
153801 COCi FO C6 BEO  NOTFOUND 1! őz uj tablazat vege 
15901 ; 
14001  COCI 52 45 50 NEWTAB .: ABC "REPEAT" 34; Az uj kulcsszavak tablazata 
1410: COCY 553 4§E 54 . ASC "UNTIL" 
1420: COCE 32 45 46 . ASC "BEFEHL" 
1430:  COD4 00 : BYT 0 ; A tablazat vege 
Co00-CoD5 
NO ERRORS 


A program utolsó része tartalmazza a kulcsszavak új táblázatát. Begépelése- 
kor ügyeljünk arra, hogy a kulcsszavak utolsó betűjét a SHIFT billentyűvel 
együtt kell leütni. A programlistán ezt kiemeltük. Az új utasításokat az eredeti- 
ekhez hasonlóan lehet rövidíteni, a REPEAT helyett gépelhetünk reP-et, az 
UNTIL helyen uUN-t. (A nagybetűk a SHIFT billentyű leütésére utalnak.) 

Az új utasítások száma maximum 51 lehet, a $CC-től $FE kódoknak megfeleltet- 
ve. Az utasításszavak hossza nem lehet több, mint 255 karakter (hiszen a 
táblázat belső mutatója nyolc bites), és a táblázatot egy nulla byte-tal kell 
lezárni. 

Az új utasítások , felélesztéséhez" a $304/$305 vektort a rutinokra kell irányíta- 
ni. Mielőtt ezt megtehetnénk, meg kell írnunk azt a rutint, amely elvégzi az 
előzővel ellentétes feladatot: a kódokat visszaalakítja kulcsszavakká. A listázás 
lehetetlen enélkül. Az értelmező a $306/$307 vektoron keresztül alakítja vissza 
a kódokat szöveggé. Elemezzük először ismét az értelmező saját rutinját: a 
LIST rutint. 


... P47. ... 


PROF1-ASS 64 V2.0 


100: A71A sOPT P 
110: ; 
1281 3 Az interpreter LIST rutinja 
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1501 1 


1401 ev0ooF EUOTFLG - 15 s: Az idezojelmod kapcsoloja 
1505 029047 PNT - $49 
1601 AOTE TABLE - $AD0TE : Az int. utasítastablazata 
1781 AB47 CHAROUT - $AB47 j A karakter leirasa 
180: : 
1901 A71A a $A71A 
29001 A71A 10 D7 BPL $A6F3 : Ha nem kod, akkor kíírni 
2101 A71C CC? FF CMP 83FF 
2201 A71E FO DS BEG $AGF3 j Ha a Pi kodja akkor kiirni 
2501 A720 24 OF BIT  XRUOTFLG ; Idezojel-mod ? 
2401 A722 30 CF BMI $AGF3 3 Igen, valtozatlanul kiirni 
2501 A724 38 sEc 
2601 4725 E? 7F SBC $4$7F t Az offset kívonasa 
2701 A727 AR TAX : A kod tarolasa szamlalokent 
2801 A728 84 49 STY PNT 3 A mutato tarolasa 
2901 A72A AD FF LDY 8-1 
500: A72C CA NEXT DEX 
T10: A72D FO 08 BERG  FOUND 3 Az utasítasszo megvan ? 
5201 A72F CB LOOP 7 INY 
S301 A730 B9 9E AO LDA TABLE,JY 
5401 A753 10 FA BPL- LO0OP ; A szonak nincs vege ? 
3501 A735 SO F5 BMI NEXT 3 A kovetkezo szo 
56081 Hi 
3701 A757 C8 FOUND INY 
5801 A738 B9 9E AO LDA TABLE,Y :t A betu beolvasasa 
5901 A7S5B 309 B2 BMI  $AGEF z; Utolso kar. ? 
4001 A73D 20 47 AB JSR  CHAROUT : A karakter kiirasa 
4101 A740 DO F5 BNE FOUND j; Feltetlen ugras 
A71A-A742 
NO ERRORS 


A rutin megvizsgálja, hogy a tárolt jel értelmező kód-e (a hetedik bit 1 ?). A Pl-t 
változatlanul kiírja. Az idézőjel is automatikus kiíráshoz vezet. Itt kezdődik az 
utasításszavak valódi keresése. 

Ha a kódból levonunk $7F-et, az eredmény 1 és 76 közé esik. A táblázaton 
haladva minden utasításszó végén (amit az utolsó karakter 7. bitjéből ismerünk 
fel) eggyel csökkentjük az előbb kapott számot. Amint ez elérte a nullát, a szót 
megtaláltuk. 

A szó karaktereit sorra kiírjuk, kivéve az utolsót. Itt elágazunk ismét a LIST 
rutinba, ott töröljük a karakter hetedik bítjét, majd ezt is kiírjuk. 

Az új kódok listázása igen egyszerű. Meg kell vizsgálnunk, hogy a kód na- 
gyobb-e, mint $CB. 

Ha igen, a saját táblázatunkban kell keresni, egyébként az értelmezőt hagyjuk 
tovább dolgozni. 


Ládd P4e. has 
PROF1-ASS 64 V2.O 


1001 Coo :OPT F,00 

11€: 1 

1201 ,; Az uj utasitasok LIST rutinja 

1501 s 

1401 o00oF RUOTFLG z 15 : Az idezojelmod kapcsoloja 
1501 0045 PNT - $49 

1601 PROTE TAELE - $ADTE ,! Az int. utasítastablazata 
1701 AB47 CHAROUT - $AB47 : A karakter leirasa 

1801 s 

2081 COOL 1e OF BLF OUT j Ha nem token, akkor kiírni 
2105 Co22 24 OF BIT  OUOTFLG. ; Idezojel-mod ? 

2201 Cgeo4 32 OR BMI OUT ; Ha ígen, kíirni 

2501 CoeoE Cg FF CMP E$FF si ? 

2401 cogs FO 07 BEG OUT ; Ha igen, kiirni 

250r caeA Cs CC CMF $E:CC pt 43 taken ? 
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2601 CGOC BO 06 BCS NEWLIST ,! Igen 
2701 ; 


2801 CBOE 4C 24 a7 JMP 34724 j A regi token lístazasa 
2901 CO11 4C FJ A6 OUT JMP $AGF3 z A byte kiírasa 
5001 , 
DI1981 cg1i4 38 NEWLIST SEC 
LI201 Cgi5 E? CB 8SBC ü$CB 1 Az offset levonasa 
I301 Cgií7 AA TAX 13 A kod, mint szamlalo 
53401 Ccge18 84 49 STY "PNT 
IS50r CO1A RB FF LDy 4-1 
5601 cgaic ca NEXT DEX § A szo megvan ? 
5701 CID FO 08 BEG FOUND ; Igen 
38091 Co1I1F CB LOOP INY 
5901 Cco29g B9 55 CO LDA NEWTAB,Y 
4001 Co23 10 FA BPL LOOP l; Varakozas a szo vegere 
4101 ce2z5 30 F5 BMI NEXT 3 Kovetkezo szo 
3291 ; 
3301 C9g27 CB FOUND INY 5 
48401 Cco2z8B B9 35 CO LDA NEWTAB,Y 4 Utasitasszo 
450 COZB 30 05 BMI  OLDEND j; Vege ? 
4601 CO2ZD 20 47 AB J8R CHAROUT j; A kar. kiirasa 
4701 cosg DO F5 BNE  FOUND. j es tovabb 
4801 : 
4905 CO32 4C EF A6 OLDEND JMP $AGEF I! Ugras a regi rutinra 
500: ; 
51081 cos5 52 45 59 NEWTAB . ABC "REPEAT" ; Utasítastablazat 
5201 COJSB 55 4E 54 S ASC "UNTIL" 
5301 CG40 42 45 46 .: ABC "BEFEHL" 
5401 CO46 00 :"BYT O 3 
C0o00-CB47 
NO ERRORS 


Állítsuk át a LIST vektort ($306/$307) a mi rutinunk kezdőcímére. A LIST parancs 
az általunk megadott kulcsszavakat helyesen írja ki. A NEWTAB az új utasítás- 
táblázat kezdőcíme. A táblázatot az új szavakkal természetesen csak egyszer 
kell elkészíteni.A két rutint fordítsuk le, és kössük össze egy olyan főprogram- 
mal, amelyben a vektorokat a megfelelőképpen módosítjuk. 

Az eddig elkészült programok még nem készítették fel az értelmezőt az új 
utasítások felismerésére. Ahhoz, hogy az utasítások valóban használhatóak 
legyenek, meg kell írnunk a végrehajtásukhoz szükséges rutinokat, és módosí- 
tanunk kell a $308/309 (utasítások)/, ill. a $30A/$30B (függvények) vektorokat. 
A feldolgozás egyszerűsítése úgy kívánja, hogy az új utasításokat és függvé- 
nyeket egy blokkban helyezzük el. A feldolgozás során ellenőriznünk kell, hogy 
a végrehajtandó utasítás tokenje benne van-e az új utasítások tartományában. 
A token sorszámát indexként használhatjuk az utasítások kezdőcímeit tartal- 
mazó táblázatban. 

Az alábbiakban közöljük annak a rutinnak az assemblerlistáját, amely teljesen 
átveszi az értelmezőtől az új utasítások feldolgozásának feladatát. Futtatása 
előtt el kell döntenünk. hogy a tárban hol helyezzük el az új rutinokat, és a 
kezdőcímeket egy táblázatba kell foglalnunk. 


46-04-t P59. 9. 
PROF1-ASS 64 V2.O 


100£ ceg - OPT Pl 

1191 ; 

120e : Az uj utasitasok kíepítese 

1501 e ; 

15091 2308 CMDVEK z $308 ! Utasitasvektor 

1601 395 FUNVEK z $s5z0A : Fuggvenyvektor- 

1701 3 

170: a99D TYPFLAG - 15 ,! Kapcsolo s numerikusz-string 
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1801 
1901 
20901 
2101 
2151 
2171 
2181 
2191 
2201 
3001 
J310r 
3201 
S501 
53401 
5501 
4001 
4101 
4201 
43501 
4401 
4501 
4601 
4701 
480: 
4901 
5001 
5101 
5101 
5105 
510: 
5201 
55091 
5401 
5501 
5601 
5701 
5801 
5991 
6001 
6101 
6201 
6301 
6401 
6501 
6601 
6701 
6BO1 
7001 
7101 
7201 
7501 
7401 
7501 
7601 
7701 
7801 
798: 
BOO: 
810: 
820: 
BIB: 
8401 
8S0r 
8605 
870: 
BAD? 
890: 
900: 
910: 
920: 


15 
ce 
08 
09 


sc 
co 
0oA 
OB 


735 
1E 
AE 


cc 
04 
E1 
06 
7y 
ED 


cc 


6F 


6E 


75 


90 
aD 
73 
E1 
04 
FF 
06 
79 
8D 


E1 


[d 
os 


os 
os 


00 
co 
A7 


00 
A7 


co 


co 


00 


00 
RE 


CHRGET 
CHRGOT 
TXTPTR 
EXECOLD 
INTER 
FUNKTOLD 
GETTERM 
CHECKNUM 
JUMP 
CMDSTART 
CMDEND 


, 
FUNSTART 
FUNEND 


, 
INIT 


[/ 
NE:-WCMD 


[4 
TESTCMD 


OLDCMD 


Lj 
OKNEW 


, 
NEWFUN 


OLDFUN 


; 
OK1NEW 


$75 

CHRGET t6 
CHRGOTft1 
$A7ED ; 
$A7RE ; 
$AEBD ; 
$AEF1 ; 
$ADBD , 
$54 fi 
$CC a 
$E0 , 


$E1 , 
$FE H 


$£  NEWCMD 
83. NEWCMD 
CMDVEK ; 
CMDVEK--1 


A NEWFUN 
42. NEWFUN 
FUNVEK f! 
FUNVEK--1 


CHRGET ; 
TESTCMD  ; 
INTER 


$CMDSTART 
OLDCMD ; 
$CMDEND--1 

OKNEW ; 
CHRGOT , 
EXECOLD 3 


$CMDSTART , 


CMDTAB--1, XI 
CMDTAB,X 
CHRGET ; 


n0 
TYPFLAG 3 
CHRGET ; 
$FUNSTART 
OLDFUN ; 
$FUNEND--1 
OK1NEW 
CHRGOT ; 
FUNKTOLD 3 


HFUNSTART ; 


; 
CHRGET ; 
GETTERM ; 


FUNTAB,Y 3 
JUMP-1 
FUNTAB41,Y; 
JUMP:--2 
JUMP ; 


A regi utasítas vegrehajtasa 
Interpreterciklus pt 

A regi fuggvenyszamiítas 

A zarojeles kif. beolvasasa 
Az eredmeny num. ellenorzese 
Ugras a fuggvenyre 

Az elso utasítastoken 

Az utolso utasítastoken 


Az elso fuggvenytoken 
Az utolso fuggvenytoken 


Az utasitasvektor 


Fuggvenyvektor 


A token beolvasasa 
Az utasítas vegrehajtasa 
Víssza az interpreter ciklushoz 


Regi utasítas ? 


Az uj utasitas feldolgozasa 
Kapcsolo visszaallítasa 
A regi utasitas vegrehajtasa 


Uj utasítas 
Az offset levonasa 
2 - szer 


Felso byte 
Visszateresi cim a verembe 


Also byte 

A kovetkezo karakter beolvasasa 
Numerikus kapcsolo 

A token beolvasasa 

A regi fuggveny 

A kapcsolo visszaallítasa 


A regi fuggveny kiszamitasa 


Az uj fuggveny 
Az offset levonasa 


A tablazatmutato tarolasa 
A kovetkezo kar. toltese 
Az argumentum beolvasasa 


A mutato, mint index 
Also cim-byte 


Felso cím-byte 


A fuggveny vegrehajtasa 
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9301 CO6B 
9401 

9501 COGE 
9601 Co70 
9701 

9801 Co72 
9901 Co734 
C0o00o-C076 
NO ERRORS 


4C 


XX 
XX 


XX 
XX 


CHECKNUM 


CHD1-1 
CMD2-1 


FUN1 
FUN2 


t Az numerikus ell. 


1 Az utasítascimek tabl.-i 


1 Fuggvenycimek tablazata 


A program 300-as és 310-es soraiban meg kell adni az első és utolsó új utasítás, 
a 330-as és 340-es sorokban pedig az első és utolsó új függvény tokenjét. 
A 950-től 960-ig terjedő sorokban el kell helyezni az új rutinok kezdőcímeit. 
Mivel a rutinokba az RTS utasítással ugrunk, amely általában a veremből veszi 
a visszaugrási címet, az új rutinok tényleges címe helyett mindig eggyel kiseb- 
bet kell beírni, mert az RTS utasítás a visszaugrási címet automatikusan eggyel 
megnöveli. 
A függvények esetére ez nem igaz, hiszen a függvényeket a JSR utasítással 
hívjuk meg. 
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3.5 AZ OPERÁCIÓS RENDSZER VEKTORAI 


A BASIC értelmezőhöz hasonlóan az operációs rendszer legfontosabb eljárá- 
sait is vektorokon keresztül lehet meghívni, ami nagymértékben megkönnyíti 
egyéni elképzeléseink megvalósítását. A hardveres célú vektorokon (IRO, 
BRK, NMI) kívül — amelyeket már korábban megismertünk — minden elemi 
input/output művelet végrehajtása hasonló szervezésű. Ez vonatkozik a $FFXX 
Kernal rutinon keresztül hívható függvényekre is. Az alábbi táblázat tartalmaz- 
za az Összes vektort és azokat a címeket, amelyekre a vektorok a gép bekap- 
csolása után mutatnak. 


1... T47. ha 

Vektor Cím Jelentes 
$0314/$0315 $EAJD1 IRR2-vektor 
$0I316/$0317 $FE66 BRK-vektor 
$0D318/$0319 $FE47 NMI-vektor 
$031A/$0J1B $FIS4A OPEN-vektor 
$031C/$031D $F291 CLOSE-vektor 
$OZ1E/$031F $F20E CHKIN-vektor 
$OI20/$09321 $F250 CKOUT-vektor 
$0I22/$0I32I $FIDZI CLRCH-vektor 
$0324/$035325 $F157 BASIN-vektor 
$0I326/$0327 $F1CA BSOUT-vektor 
$0I328/$0329 $F6GED STOP-vektor 
$O0I32A/ $0532B $FI1IE BET-vektor 
$032C/$032D $FE66 Melegstart-vektor (kihasznalatlan) 
$0I32E/ $032F $F4A5S LOAD-vektor 
s$OIIO/$0331 $F5ED SAVE-vektor 


Ebben a fejezetben részletesen ismertetjük a vektorok jelentését és a hozzájuk 
tartozó rutinok feladatát. Az elméleti alapok elsajátítása után az Olvasó kis 
befektetéssel készíthet saját input/output rutinokat. 


OPEN - JSR $FFCO 

Feladata tökéletesen megegyezik az azonos nevű BASIC utasítás feladataival. 
Hívás előtt a szükséges paramétereket elő kell készíteni. Erre szolgál a követ- 
kező két rutin. 

SETFLS - JSR $FFBA 

A rutin rögzíti a logikai file-szám, az egységszám és a másodlagos cím értékét. 


Hívása előtt a paramétereket egyszerűen be kell írni a processzor regiszterei- 
be: 


... PS1. 4... 

LDA LF t Logikai file-szam 
LDX FA : Egysegszam 

LDY sa 1 Masodlagos cím 


JSR SETFLS ; A parameterek beallítasa 
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SETNAM - JSR $FFBD 


Ez a rutin előkészíti az OPEN rutin végrehajtásához a file nevét. A név tárbeti 
kezdőcímét és hosszát ismét a regiszterekbe kell beírni: ; 
,. e... P52. 9993 
LDA $NEV1-NEV ; A file-nev hossza 
LDX §$C NEV Il A cím also byte-ja 
; 
; 


LDY 42 NEV A cim felso byte-ja 
JSR SETNAM A parameterek atadasa 


NEV LASC "NEV" 
NEVI s § ; NEV VEGE 
Ha nincs file-név, a hossz helyére nulla kerül. 
Az utóbbi két rutin végrehajtása után meghívhatjuk az OPEN rutint. 


JSR OPEN 


Ha a logikai file megnyitása közben hiba lépne fel, a rutin a C (Carry) kapcsolót 
1-re állítja, és a hiba számát elhelyezi az :akkumulátorban. A hibaszámok 
jelentése: á 


ara at T48. kelsési 
Sorszam Jelentes 
g Megszakítas STOP-billentyuvel 
1 Tul sok nyított file 
2 A file nyitva van 
h. 3 A file nincs nyítva 
a A file nincs meg 
5 Az egyseg nincs jelen 
6 Nem INPUT-file 
gy Nem OUTPUT-file 
8 Hianyzo file-nev 
9 Illegaliís egysegszam 


240 RS 252 OPEN/CLOSE 


A kernalrutinok hívása után mindig ellenőrizni kell a C kapcsolót, és ha értéke 
1, akkor a hibát le kell kezelni: 


kösösi T49. 99343t 
J8SR OPEN ; File nyitas 
BCC OK ; Minden rendben ? 
JMP ERROR 

EK és 


A hibaüzeneteket az Olvasó már ismeri, ezek közül eddig csak egyről nem esett 
szó. Az RS-232-es illesztő (2-es egységszámmal) nyitása és zárása esetén 
kapjuk a 240-es sorszámú hibaüzenetet, ha a velet elvégzése közben hiba 
lépett fel. 

Ahogyan ezt az Olvasó feltehetően tudja; az RS ..32-es csatorna megnyitásánál 
a rendszer két, egyenként 256 byte input/output pufferrel dolgozik. A két puffer 
a BASIC terület felső határán kezdődik. 

A BASIC vége programonként változik a $A000-$9E00 tartományon belül. Elő- 
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fordulhat olyan eset is, hogy a füzérek teljesen elfoglalják ezt a területet, és Így 
a pufferek számára nem marad hely. Ilyenkor az OPEN rutin a 240-es híibaszá- 
mot beírja az akkumulátorba és a C kapcsolót 1-re állítja, ezzel tájékoztatva az 
értelmezőt a hibajelenségről. Az értelmező válaszul végrehajt egy CLR utasí- 
tást, és törli a változókat. A CLOSE utasítás ismét felszabadítja a puffereket és 
szintén törli a változókat. Ezért az RS-232-es csatornával dolgozó programok- 
ban mindig a program elejére kell írni az OPEN és a végére a CLOSE utasítást. 
Csak így biztosíthatjuk, hogy a program változóit futás közben az OPEN és 
, CLOSE utasítások ne semmisítsék meg. 

Előfordulhat, hogy valakinek ez az eljárás nem megfelelő — pl. nem akarja 
megcsonkítani a BASIC területet a pufferek méretével. Az OPEN rutint át lehet 
úgy írni, hogy a puffereket mindig fix helyre, pl. a $C000-s címtől kezdve rakja 
le, így nem lesz szükség a változók törlésére, a rutinból kihagyhatjuk a CLR 
utasítást. 

Az input/output rutinok is a C kapcsolót használják hibajelzésre, és az előzőek- 
hez hasonlóan az akkumulátor tartalmazza a hiba számát. 

A hibaüzeneteket az operációs rendszer külön rutinja Írja ki. A rutin az üzenetet 
az alábbi formában generálja: 


I/O ERROR§X 


ahol X a hiba száma (1-től 9-ig). A hiba nem szakítja meg a program futását. 
A hibaüzenet kiírását a 


SETMSG - JSR $FF90 


rutin hívásával aktivizálhatjuk úgy, hogy előtte az akkumulátorba $40-et Írunk 
(a hatodik bit értéket 1-re állítjuk). Az üzenetek kiírását ugyancsak a SETMSG 
rutinnal lehet kikapcsolni, az akkumulátor nulla értéke mellett. 

A SETMSG rutin másik feladata a program- és a parancs üzemmód megkülön- 
böztetése. A kapcsoló az akkumulátor hetedik bitje. Program üzemmódban a 
kapcsoló értéke 1. A rendszer üzenetei ilyenkor: 

SEARCHING FOR , LOADING , SAVING . 


CLOSE - JSR $FFC3 


A CLOSE rutin egyetlen paramétere a file logikai száma, ezt hívás előtt az 
akkumulátorba kell tölteni. 


964646 T50. 14464 
LDA LF 
JSR CLOSE 


A CLOSE rutin, egyetlen esettől eltekintve, nem generál hibaüzenetet. Az 
RS-232-es csatorna lezárása közben a rendszer felszabadítja a puffereket, és 
végrehajtja a CLR utasítást. A meg nem nyitott file lezárási kísérlete hibajelzés- 
hez vezet. 
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CHKIN — JSR $FFC6 


Alapállapotban az elsődleges beviteli egység a billentyűzet. A rutinnal ezt az 
állapotot módosíthatjuk, azaz kíjelölhetjük elsődleges bevitelre a korábban 
megnyitott logikai file-t. Hívása előtt a logikai számot be kell írni az X regiszter- 
be. 


kásösé T31. kesási 

LDX LF 

JSR CHKIN 
Természetesen a logikai file-hoz rendelt egységnek bemeneti egységnek kell 
lennie, egyébként hibaüzenetet kapunk (NOT INPUT FILE). A hibakezelés mód- 
ja a megszokott. Hibaüzenetet okozhat pl. az, hogy előzetesen nem nyitottuk 
meg a file-t ( FILE NOT OPEN ). A tulajdonképpeni adatbevitelt a BASIN rutin 
bonyolítja le, amiről a későbbiekben esik majd szó. 


CKOUT - JSR $FFC9 


A CHKIN rutinnal szemben, ami az adatbevitelt készíti elő, a CKOUT rutin az 
adatok kiírását készíti elő. Alapállapotban az elsődleges kiviteli egység a 
képernyő. 

A CKOUT rutin az alaphelyzetet módosítja, és kiviteli egységként az előzetesen 
megnyitott logikai file-hoz rendelt egységet jelöli meg. A rutin BASIC megfele- 
lője a CMD utasítás. A file logikai számát ismét az X regiszterben kell a rutin 
számára előkészíteni. 


964694 T52. 9446 96 
LDX LF 
J8R CKOUT 


A hibakezelés az előzőekhez hasonló. Ha pl. egy olvasásra megnyitott szala- 
gos file-t akarunk adatkiírásra kijelölni, a NOT OUTPUT FILE hibaüzenetet 
kapjuk. A kijelölt file-ba az adatokat a BSOUT rutin írja fel. 


BASIN — JSR $FFCF 


A rutin a BASIC INPUT rutin megfelelője. 

Hívása előtt CHKIN rutinnal meg kell jelölnünk az adatbeviteli forrást, az input 
file-t. 

Alapállapotban a rutin a billentyűzetről olvassa az adatokat, és a képernyőre 
írja. 

Ha egy gépi kódú programból meghívjuk ezt a rutint, a kurzor megjelenik a 
képernyőn, és mindaddig folyamatosan olvassa az adatokat, amíg a RETURN 
billentyűt (CHR$(13)) le nem ütjük. 

Az első beolvasott karaktert elhelyezi az akkumulátorban. Minden további 
karaktert a rutin újabb hívásával kaphatjuk vissza az akkumulátorban. 

Az adatok folyamatos begépelése közben használhatjuk a képernyőszerkesztőt 
(karakterek törlése, beszúrása stb.). 
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Ha az adatokat nem a billentyűzetről, hanem pl. egy lemezes file-ból akarjuk 
beolvasni, ami megfelel a BASIC INPUT utasításnak, akkor a rutin hívása előtt 
a CHKIN rutinnal át kell irányítanunk a beolvasást az adott logikai file-ra. Ebben 
az esetben a BASIN rutin minden hívásakor beolvas egy karaktert a file-ból és 
átadja az akkumulátorba. 


BSOUT- JSR $FFD2 


A BSOUT rutin kiír egy karaktert a képernyőre. 
A karakter ASCII kódját előzetesen be kell tölteni az akkumulátorba. Például 
az 

96944 TSZ. 96943t 


LDA 4341 
JSR BSOUT 


utasításpár a $41 (65) ASCII kódú karaktert kiírja a képernyőre (történetesen 
az "A" betüt). 

A rutin a közönséges karakterek kiírásán kívül vezérlőkarakterek kiírására is 
alkalmas, amit BASIC-ben pl. a PRINT CHR$(X) utasítással szoktunk megtenni. 
A soremelést, amit BASIC nyelven egy változókat nem tartalmazó PRINT utasí- 
tás végez el, a következőképpen kell! gépi kódban programozni: 


94363 T54. 34343e 
LDA $i13 : Kocsívissza 
JSR BSOUT :; Kiirni 


A kiírás vonatkozhat egy tetszőleges file-ra is, amelyhez előzetesen hozzáren- 
deltük pl. a nyomtatót vagy a lemezegységet. Ilyenkor a rutin hívása előtt a 
CKOUT rutinnal át kell irányítani az adatok kiírását az adott egységre. 

A kiírás közben fellépő hibák kezelése az eddig megismert módon történik. Ha 
: pl. a soros busz adott egysége nem , válaszol", akkor a DEVICE NOT PRESENT 
hibaüzenetet kapjuk. 


CLRCH - JSR $FFCC 


A rutin feladata ellentétes a CHKIN, ill. CKOUT rutinok feladatával. 
Visszaállítja az alaphelyzetet; kijelöli elsődleges beviteli egységként a billen- 
tyűzetet, kiviteli egységként a képernyőt. 

A következő programrészletben a 2-es logikai file-ból (a lemezegységről) 
beolvasunk 10 karaktert. 


94.469 P5SID. ... 
LDX 42 3; Logikai filie-szam 
J8SR CHKIN ; Beolvasas a 2-es file-bol 
LDY 4O 
LOOP JSR BASIN :t: Egy karakter beolvasasa a lemezegysegrol 
STA STORE,Y 3 es tarolasa 
INY 
CPY $I1O z Mar beolvasott 10 karaktert ? 
BNE LOOP : Nem 
JSR CLRCH :t Az alaphelyzet visszaallitasa 
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A program futtatása előtt meg kell nyitni a 2-es logikai file-t. Első lépésben 
átkapcsoljuk a beolvasást erre a file-ra, a BASIN rutinnal betöltünk 10 karaktert 
és ezeket tároljuk, majd a CLRCH rutinnal visszarendeljük a beolvasást a 
billentyűzethez. 

A program futtatása után a file-t CLOSE utasítással le kell zárni. 


GET - JSR $FFF4 


A rutin a BASIC GET utasítás megfelelője: beolvas egy karaktert a billentyűzet- 
ről. Mindaddig, amíg le nem nyomunk egy billentyűt, az akkumulátor tartalma 
nulla marad — hasonlóan a GET utasításhoz, ahol ilyenkor üres karaktert 
kapunk vissza. Egy billentyű lenyomására várakozik az alábbi két utasítás: 


96-94 ét T55. 96.44 8 
LOOP JSR GET 
BERG LODP 


A GET rutin beolvasása is vonatkozhat egy logikai file-ra. A beolvasás előkészí- 
tése hasonló a BASIN rutinnál megismert eljáráshoz. Ha a beolvasás egy file-ra 
vonatkozik, akkor a GET és BASIN rutinok tökéletesen egyformán működnek. 
A beolvasás végeztével itt is meg kell hívnunk a CLRCH rutint az alaphelyzet 
visszaállítására. 


CLALL - JSR $FFE7 


A rutin feladata azonos a CLRCH rutin feladatával, ill. annyiban több annál, 
hogy hívásakor az alaphelyzet visszaállításán kívül a megnyitott file-ok számát 
is nullára állítja. Az operációs rendszer ezután minden file-t lezártnak tekint. 
Valójában a rutin nem zárja le annak rendje s módja szerint a nyitott file-okat, 
ha előtte azt CLOSE utasítással nem tettük meg. 

Pl. egy írásra megnyitott lemezfile lezárása rendellenes lesz, ha előtte CLOSE 
utasítással nem zártuk le. 

Az értelmező a RUN parancs hatására mindig meghívja a CLALL rutint. 


LOAD - JSR $FFD5 


Az operációs rendszer LOAD rutinjának hívása előtt elő kell készíteni az 
egységszámot, a másodlagos cimet és a file nevét a SETFLS és SETNAM 
rutinokkal. 

A másodlagos cím értékétől függően a rutin a programot vagy arra a címre tölti, 
amelyet a lemezről beolvas, vagy arra a címre, amit paraméterként átadunk 
neki. 

Ha a másodlagos cím nulla, akkor a tárolási címet az X (alsó byte) és az Y (felső 
byte) regiszterek tartalma határozza meg. Azt, hogy valódi programbetöltést 
vagy programellenőrzést (VERIFY) végez a rutin, az akkumulátor tartalma dönti 
el. 
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Arab P54. 461636 


LDA $4O 3 A kapcsolo erteke betolteshez 
LDX $c CIM 3 Kezdocim 

LDY 42 CIM 

JSR LOAD d 

STX VEGCIM 1 Vegcim also byte 

STY VEGCIM-41 ; Vegcím felso byte 


Ha a másodlagos cím nulla, a rutin a programot a CIM-től tölti be. A betöltött 
program végcímének alsó és felső byte-ját az X és Y regiszterekben kapjuk 
vissza. Ha betöltés helyett a tárbeli és a lemezen tárolt programot akarjuk 
összehasonlítani, akkor hívás előtt az akkumulátorba 1-et kell beírni. 


44960 T56. MM 
LDA 41 I! A VERIFY kapcsoloja 
JSR LOAD 


Ha a másodlagos cím egy, akkor a betöltési címet a rutin a lemezről olvassa 
be, és ilyenkor nem kell előzetesen az X és Y regiszterek tartalmát rögzíteni. 
Az ellenőrzés (VERIFY) során felmerülő hibát (a lemezen tárolt és a tárbeli 
program különbözőséget) a $90-es cím nullától különböző értéke jelzi. 

A $90-es cím az ún. állapotjelző változó (státusz). 

A program végét az operációs rendszer abból ismeri fel, hogy a státuszban a 
6. bit 1-re vált, értéke 64 lesz. 


96 ab T57. arakat 
LDA STATUS 
AND $7/7190111111 ; EOF-bit maszkolasa 
BERG OK 


JMP ERROR 
OK —-s on 


SAVE - JSR $FFD8 


A SAVE rutin a tár tetszőleges részét kimásolja egy külső egységre. Hívása 
előtt a SETFLS és SETNAM rutinokkal elő kell készíteni az egységszámot, a file 
nevét, és meg kell adni a tárterület kezdő- és végcímét (ill. technikai okokból 
a végcím t 1-et). 

Az utóbbi alsó és felső byte-ját az X és Y regiszterekben kell tárolni. 

Az akkumulátorba be kell tölteni egy mutatót, amely a nulláslapon arra a címre 
mutat, ahol a tárterület kezdőcíme található (alsó és felső byte). 

A $1234-től $1FFF-ig terjedő terület tárolására szolgáló programszám: 


mh PSS. 999 t 


LDA 4( 351234 
STA START 

LDA 42 $12354 
STA START-41 
LDX 4c $ÍFFF-41 
LDY 42 s$IFFF4i 
LDA $START 

JSR SAVE 


5.43 gy 


A program elhelyezi a nulláslap START és START -- 1 címén a tárterület kezdő- 
címét. 

Az X és Y regiszterekbe betölt a program végcíménél eggyel nagyobb értéket 
alsó és felső byte-ra bontva. Végül az akkumulátorba betölti a START kezdőcíi- 
met közvetlen címzéssel. 

Tárolás közben a DEVICE NOT PRESENT, a MISSING FILENAME, ill. az ILLE- 
GAL DEVICE NUMBER hibaüzenetek léphetnek fel. Az utóbbi pl. akkor, ha 
kiviteli egységként a billentyűzet vagy az RS-232-es csatornát adjuk meg. 
Mielőtt saját inputoutput rutint írnánk, érdemes közelebbről megvizsgálni az 
operációs rendszer kernal rutinjainak munkamódszerét. 


OPEN 


Az OPEN utasítás bejegyzi a paramétereket - a file logikai számát, az egység- 
számot és a másodlagos címet - egy táblázatba. A táblázat mérete 10 bejegy- 
zésre elegendő, ha ennél több file-t akarunk megnyitni, akkor kiírjuk a TOO 
MANY FILES (túl sok file) hibaüzenetet és a végrehajtást befejezi. 

Ha hiba nem lép fel, akkor a további lépések az egységszámtól függnek. Ha a 
megnyitás a képernyőre (3-as egységszám) vagy a billentyűzetre (0-s egység- 
szám) vonatkozik, akkor nincs szükség sem a file nevére, sem egyéb teendőre, 
így a rutin futása véget ér. Amennyiben az input/output művelet pl. szalagegy- 
ségre (1-es egységszám) vonatkozik, akkor a következő elágazás irányát a 
másodlagos cím határozza meg. 

A 2-es másodlagos cím is írásra utal, de ebben az esetben a CLOSE utasítás 
végrehajtásában lesz eltérés. 

Olvasásnál a rutin megkeresi a szalagon az OPEN utasításban megadott file- 
nevet, ill. ha nem adtunk meg file-nevet, akkor a legelső file-t nyitja meg. Ha 
az egységszám 2 (RS-232-es csatorna), akkor előkészíti az adatátvitelt, ami az 
alábbi lépésekből áll. 

Kijelöli a BASIC tár felső határán a két, egyenként 256 byte-os input/output 
puffert (erről már korábban esett szó). A másodlagos címet ebben az esetben 
nem veszi figyelembe. 

Az RS-232-es csatornán megnyitott file neve 4 karakterből állhat, és ezeknek 
a karaktereknek a műveletvégzésre vonatkozóan külön jelentésük van. 

A rendszer az első két karaktert tárolja a $293-as és $294-es címeken. Ezekből 
meghatározza az átviteli bitek számát (első karakter 5. és 6. bitje), ill. az átviteli 
sebességet. A bitek számát a $295/$296 címeken tárolja. Az utóbbit betölti a CIA 
2 számlálóiba. X-line handshake esetén megvizsgálja, hogy DSR (Data Set 
Ready) jel érkezett-e. 

Hibás jelet észlelve, az RS-232-es állapotjelző regiszterében ($297) a megfele- 
lő bitet bebillenti. 

Egyébként az OPEN utasítás végrehajtásakor az állapotjelző regisztert (ST-t) 
mindig törli. 

Ha az egységszám 3-nál nagyobb, akkor az adatátvitel a soros buszra vonatko- 
zik. ; 

Ilyen esetben, ha másodlagos címet és file-nevét nem adtunk meg (mint pl. egy 
a nyomtatóra vonatkozó OPEN1,4 utasításban), akkor az OPEN utasítás végre- 
hajtása mindössze egy file-bejegyzést jelent. 
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Ha a másodlagos címet nem adták meg, egy negatív értéket (pl. $FF-et) kell 
átadni a SETFLS rutinnak. 

Egyébként ugyanis a rendszer a soros buszra küldi az OPEN utasítást, úgy, 
hogy először LISTEN parancsot továbbít az egységnek egy $FO címmel együtt. 
A $FO cím az egység számára OPEN utasítást jelent. 

A másodlagos cím feldolgozása után a rendszer a file nevét is továbbítja (ha 
volt), és egy UNLISTEN paranccsal az adatközlést befejezi. 


CLOSE 


A CLOSE utasítás befejezi az átvitelt és törli a tárból a file bejegyzését. A rutin 
következő lépéseit megint az egységszám szabja meg. A billentyűzetre és a 
képernyőre megnyitott file-ok esetén a rutin a bejegyzés törlése után befejező- 
dik. 

Ha azonban az adatátvitel egy külső egységre, pl. szalagegységre irányult, 
akkor a rutin megvizsgálja a másodlagos címet. Ha a file olvasásra volt nyitva 
(a másodlagos cím nulla), akkor nincs más teendő, a munka itt ismét véget ér. 
Írásnál azonban a kazettapuffer tartalmát a tényleges lezárás előtt kiüríti — az 
adatokat felírja a file-ba és a 2-es másodlagos cím hatására még egy EOT (End 
of Tape) adatblokkot is felír a szalagra. 

RS-232-es adatátvitel esetében a rutin felszabadítja a két puffert. 

Soros átvitelnél abban az esetben, ha megadtunk másodlagos címet, a soros 
buszon át a külső egységhez továbbít egy a másodlagos címnél $E0-val na- 
gyobb értéket, amit az egység CLOSE utasításként értelmez. 


CHKIN 


Ha file-ból olvasunk adatokat, akkor a gép a logikai file-szám alapján a bejegy- 
zésből meghatározza az egységszámot és a másodlagos címet, és ezek értéké- 
től függően különbözőképpen jár el. 

Szalagegység esetén megvizsgálja, hogy a file-t olvasásra nyitottuk-e meg 
(másodlagos cím: 0), és ha nem, akkor egy hibaüzenetet generál (NOT INPUT 
FILE). 

Ha a soros buszra kapcsolt egységről olvashatunk, a rendszer elküld az egy- 
séghez egy TALK utasítást és a másodlagos címet, erre válaszul a külső 
egység jelzi, hogy felkészült az adatok küldésére. 

Ha szükséges, a rendszer tárolja az egységszámot is, hiszen az adatokat csak 
addig olvashatjuk erről az egységről, amíg az inputVoutput egységek alaphely- 
zetét a CLRCH utasítással vissza nem állítjuk. Í 


CKOUT 


A CKOUT utasítás a CHKIN-hez hasonlóan működik. 

Szalagegység esetében megvizsgálja, hogy a másodlagos cím nagyobb-e mint 
nulla (egyébként kiírja a NOT OUTPUT FILE hibaüzenetet). A soros buszra 
elküldi a LISTEN utasítást és a másodlagos címet - válaszul a külső egység 


jelzi, hogy készen áll az adatok fogadására. tja 


BASIN 


A rutin beolvas egy karaktert a CHKIN utasítással kiválasztott, éppen aktív 
egységről, vagy alaphelyzetben a billentyűzetről. A beolvasott karaktert az 
akkumulátorban tárolja. 


BSOUT 


A rutin az akkumulátor tartalmát (egy karaktert) kiírja az előzetesen CKOUT 
rutinnal aktivizált egységre. Az egység alapértelmezésben a képernyő. 


CLRCH 


A CLRCH utasítás az input/output egységek korábbi kijelölését megszünteti, és 
az alaphelyzetet visszaállítja. 

Az input egység számát 0-ra (billentyűzet), az output egység számát pedig 3-ra 
(képernyő) állítja. 

Ha a soros busz egységei is aktívak voltak, a rendszer a buszra egy UNTALK, 
ill. UNLISTEN üzenetet is küld, jelezve ezzel, hogy az adatátvitel befejeződött. 


114 


3.6 RENDSZERFÜGGETLEN NYOMTATÁS (SPOOLING) 


Az operációs rendszer inputVoutput vektorainak alkalmazását egy nyomtatási 
feladaton keresztül mutatjuk be. A nyomtatót egy Centronics illesztővel csatla- 
koztathatjuk az alapgép user portjára. 

Rendszerfüggetlen nyomtatásról (spooling) abban az esetben beszélünk, ami- 
kor a karakterek kiírása az éppen futó program munkájától független, ún. 
háttértevékenység. 

A meghatározásból kiderül, hogy ezt a feladatot csak a megszakítási rutin 
igénybevételével oldhatjuk meg. Az egyszerű PRINT utasítást a rendszer úgy 
hajtja végre, hogy minden karakter kiírása előtt addig várakozik, amíg a nyom- 
tató készen nincs az adat fogadására. A rendszerfüggetlen nyomtatásánál a 
várakozást úgy kerüljük ki, hogy a kiírandó karaktereket egy pufferben tároljuk, 
ahelyett, hogy PRINT utasítással kinyomtatnánk. 

Az általunk készített megszakítási rutin — amit összekapcsolunk a rendszer- 
megszakításokkal — megvizsgálja, hogy van-e a pufferban kiírandó karakter. Ha 
igen, akkor a rutin folyamatosan nyomtatja a pufferben talált karaktereket 
mindaddig, amíg a puffer ki nem ürült, vágy míg a nyomtató nem jelzi, hogy nem 
tud több adatot fogadni. 


464436 P5S6. 444630 
PROF1I-ASS5 64 V2.08 


1001 ccoe .: ÖPT P,B0 

110: , 

1201 : Printer spooling 

150t ; 

140: 1 1/0 vektorok 

150: oS1A OPEN - $z1A 3 OPEN vektor 

1601 5.8 Évi CLOSE - $31C 1 CLOSE vektor 

1991 or26 BSOUT a 3326 ! BSOUT vektor 

2001 ; 

210: B0F7 WPNT - $8F7 ; Irasmutato a pufferben 
2201 00F9 RPNT a $F9 ; Olvasasi mutato a pufferben 
250: ; 

2401 0098 NRFLS a 298 : A nyitott file-ok szama 
2501: 00BB LF a $B8 1; Logíkai file-szam 

260: DOBA FA - $BA 3 Egysegszam 

2703 00597 sa m 1B9 ; Maáasodiagos cim 

2801 0259 LFTAB z $259 : A 109.file-szamok tablazata 
290: 0263 FATAB m LFTAB-F10 : Az egysegszamok tablazata 
300: 026D SATAB - FATABt19g : A masodlagos cimek tabiazata 
310: 009E CHAR ke $9E 3 A kiírando karakter 

3201 09091 KONFIG - 1 : Tarfelosztas 

330 g09A OUTDEV - 398 j; Egysegszam kiirashoz 

3401 03184 IROVEK s $314 : IRO - vektor - 

I501 EAZ31 IRRALT " $EAZI 3 A regi IRO rutin 

360 2 

370: F34A ÖPENÜLD zs $FI4A 

3801 F1CA BSOUTOLD z $F1CA 

399: FS3F SETPARA  z $FI1F 

3001 F53134 SUCHLF - $F319 

410: FIOF SUCHLFX sz $FJIOF 

320: F2A1 OLDCLOSE : $F2A1 

450: F2F1 CONTCLS s $F2F1 

440: F6éFE FILEOGPEN zs $F6GFE 

4591 F64B TOOMANY za $F54B 
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9291 
DDO0 
DDO0 
DDO1 
DDO3 
DDOD 


E200 


ccoo 
CCoo 
CCo2 
cco4 
CCo7 
CCA 


CCOB 
CCOoD 
CCoF 
CC12 
CC14 
CC17 
Cc19 
CCiB 
cCiD 
cCCc20 
CC22 
CC24 
cCC26 
CC29 
CC2B 
CC2E 
CC3oG 
CCS3 
ccss 
ccse 
ccsa 
CcCc3C 
CCSE 
CCc40 
cCC4a2 
CCc3a4 
CC46 
CC49 
cCCc4AC 
CC4E 
cCCcsi 

cCcss 
ccss 
ccsa 
CCSB 
cCCSD 
CCSF 
CC6Z2 
CCSS 
CC67 
CC6Y 
CCéA 
CC6D 
CC70 
CC71 

CC72 


CC75 
CC7S 
CC76 
CC7B 
CC7A 
CC7C 
CC7E 


03 
[53 


FS 


F6 


F6 


F3 


02 


02 


02 


DD 
DD 


DD 


03 
03 


os 
03 


os 
oz 


CLOSEOLD 
SETA "7" 
PORTA 
PORTB 
RICHTUNG 
ICR 


; 
PUFFER 


INIT 


; 
DPENNEW 


ERROR 
OK2 


OK 


SPOOL 


g 
SFOOLING 


TESTNEXT 


$F291 
$DDO0O 
CIA 
CIAt1 
CIAH3 
CIAr1S3 


$E000 ; 


$CC00 

4C OPENNEW 
483 OPENNEW 
OPEN ; 
OPEN 1 


LF ; 
ERROR ; 
BUCHLFX ; 
OK2 ; 
FILEOPEN , 
NRFLS ; 


; 
TOOMANY : 
FA ; 
4 f 
SPOOL ; 
OPENOLD 
NRFLS ij 
FATAB,X 

LF 

LFTAB,X ; 
4-1 
SATAB, X 
$2 PUFFER 
WPNT-4-1 
RPNT-61 

40 s; 
WPNT 

RPNT 

HS$FF 
RICHTUNG , 
PORTA 

4/1000 ; 
PORTA 

$C BSOUTNEW 
$2 BSOUTNEW 
BSOUT : 
BSOUT641 

$C CLOSENEW 
42 CLOSENEW 
CLOSE ; 
CLOSEt 1 

4$C SPOOLING 
$2 SPOOLING 
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IROVEK 
IROVEKt 1 


KONFIG 


sss H 
KÖNF IG 
RPNT 
WPNT 
SENDCHAR 


CIAZ2 

PAZ STROBE 

B port az adatok szamara 
Adatíranyregiszter 
Interrupt control regiszter 


Nyontato-puffer a kernal ala 


Az OPEN vektor atallítasa 


Logikai FILE-szam 

0 nem megengedett 

A FILE-adatok keresese 

Ha nincsenek meg 52 OK 
Egyebkent. "FILE OPEN ERROR" 
A nyított FILE-ok szama 


Ha kevesebb, mínt 10 
"TOO MANY FILES" 
Egysegszam 

m— 4? 
Igen, 


md OK 


SPOOLING 


A szam novelese 
Egysegszam a tablazatban 


Logikai FILE-szam 
Nincs egysegszam 
Irasmutato 


es olvasasi mutato 
a puffer elejere 


USER-port kiirashoz 


STROBE felso byte 


BSOUT vektor az uj rutínra 


CLOSE vektor az uj rutinra 


IRd-vektor SFDOL-rutinbol 


Hibakapcsolo torlese 


A RAM kívalasztaszsa 


Irzs-, olvasasmutato 
Osszehasonliitas 
Ha kararter kiirasa 


étz B2-á 


1149: 
1150: 
11601 
1170: 
1180: 
1190: 
12090: 
1210: 
1220: 
12501 
1280: 
1250: 
12601 
12701 
12801 
12801 
1290: 
12901 
15300: 
15101 
15201 
13301 
15405 
13501 
13601 
1370: 
1580: 
13901 
1400: 
1410: 
14201 
14201 
14301 
14340: 
19501 
14501 
1460: 
14701 
14801 
1490: 
1500: 
15101 
1520: 
1530: 
1590: 
1550: 
1560: 
1570: 
1580: 
1560: 
1590: 
1600: 
1610: 
1620: 
16301 
16302 
1680: 
16501 
1660: 
1670: 
1680: 
1690: 
1700: 
1710: 
1720: 
17301 
17401 
17505 
176€: 
17701 


cceBo 
ccB82 
CCB4 
CCB6 
cces 
CCSB 
cc8D 
cceF 
CCS1 
CC94 
CC97 
CC99 
[5/oAoi 
CCgE 
CCAL 
CccAS 
cca5S 
CCA7 
CCA? 
CCAB 
CCAD 


CCAF 
CCBO 
CCB2 


ccBs5 
CCB6 
CCBB 
CCBA 
CCBC 
CCBD 
cCCCce 
CCCIi 
cccs 
CCC4 
ccc5 
CCC7 
CCCI 
CCCB 
CCCD 
CCCF 
CCD1 
CCDS 
ccD5 
CCD7 
cCDe 
CCD? 
CCDB 
CCDC 


CCDD 
CCED 
CCE2 
CCcES 
CCE6 
CCE7 
CCE9 
CCEB 
CCED 
CCFO 
CCF2 
CCF 4 
CCF7 
CCFA 
CcFEe 
CCFE 
CDOe1 
CDe4 
CD26 


gE 


14 
F9 
1F 


BA 
04 
03 
A1 
CA 
Fi 
26 
27 
91 


mm 
ala 


19 
LE 
51 
EA 


DD 


DD 
DD 


DD 


DD 


EA 


Fi 


F3 


F5 


F2 


os 
os 


os 
ez 


SENDCHAR 


§ 
EXIT 


; 
BSOUTNEW 


OK1 


NOINC 
KESZ 


s 
CLOSENEW 


CLOSE1 


LDA 
CMP 
BEG 
LDA 
BIT 
BEO 
LDY 
LDA 
STA 
LDA 
AND 
STA 
ORA 
STA 
INC 
BNE 
INC 
BNE 
LDA 
STA 
BNE 


PLA 
STA 
JMP 


FHA 
LDA 
CMP 
BEO 
PLA 
JMP 
PLA 
STA 
TYA 
PHA 
LDA 
LDY 
STA 
INC 
BENE 
INC 
BNE 
LDA 
STA 
PLA 
TAY 
LDA 
CLC 
RTS 


JSR 
BNE 
JSR 
TXA 
PHA 
L.DA 
CMPF 
BEG 
JMP 
LDA 
LDX 
5Ta 
STX 
LDA 
LDX 
STA 
STX 
LDA 
LDX 


RPNT41 
WPNT--1 
EXIT 
$/.10000 
ICR 
EXIT 

40 
(RPNTOGY 
PORTB 

PORTA 
$/11111011 ; 
PORTA 
47/.O0ODOIRO ; 
PORTA 

RPNT 
TESTNEXT — ; 
RPNT-1 
TESTNEXT 

42 PUFFER 
RPNT--1 
TESTNEXT 3 


KONFIGB $ 
IRODALT , 
; 
OUTDEV ; 
na ; 
OK 1 ; 
BSOUTOLD 


CHAR 


CHAR ; 
wo 

(WPNT) ,Y : 
WPNT 
NOINC 
WPNT--1 
NOINC 

$2 PUFFER 
WPNT-4-1 


CHAR 


SUCHLF ; 
KESZ $ 
SETPARA ; 


: 
FA ; 
A3 $ 
CLOSE1 
OLDCLOSE : 
$c BSOUTOLD 
$2 BSOUTOLD 
BSOUT ; 
BSOUT-641 

tc CLOSEOLD 
$2 CLOSEOLD 
CLOSE ; 
CLOSE--1 

tc IRRALT 

$2 IROALT 


Bitmaszk a FLAG-bemsenethez 
A nyomtato kesz ? 
Nem 


A kiirando karakter 
A port-ra 


STROBE also byte 


es felso byte 


Az olvasasi mutato 


A kovetkezo karakter kuldese 
A regi tarfelosztas 

Ugras a regi IRO-ra 

A karakter tarolasa 
Egysegszam 

u 4? 

Igen 

Ugras a regi kiirasra 

A karakter vísszatoltese 

es tarolasa 


Y mentese 
A karakter 


kiirasa a pufferba 


A puffer-mutato novelese 
A puffer-mut. a. puffer elejere 


Y visszaolvasasa 

A hibakapcsolo torlese 

A FILE-parameterek keresese 
Ha nincs FILE nyitva, m2 kesz 
A FILE-parameterek beolvasasa 
X mentese 

Egysegszam 


5 4? 


A regi CLOSE rucin 


A vektor a regi -utinra 


A vektor a ragi CLOSE rutínra 


TAT 


17BO: CDOS8 78 SEI 


17901 CDO9 BD 14 05 STA  IROVEK ; A regi IRO helyreallitasa 
18001 CDOC 8E 15 05 STX  IROVEKtI 

18101 CDOF 58 CLI 

18201 CDIOG 4C Fi F2 JMP CONTCLS 3; CLOSE befejezese 
CCoo-CD13 ; 

NO ERRORS 


A rutin működését könnyebben megértjük, ha van némi alapismeretünk a 
Centronics illesztőről. 

A Centronics egy párhuzamos illesztő, egyszerre 8 bit, azaz 1 byte továbbításá- 
ra alkalmas. 

A számítógép és a nyomtató közötti kapcsolatot két, ún. handshake vonal 
teremti meg. 

Az egyiket, a STROBE vonalat a gép szolgálja ki. 

A vonal nyugalmi állapotban magas jelszinten áll. 

A gép nyomtatáskor egy byte-ot kihelyez az adatvonalra, és a STROBE ala- 
csonyra állításával közli, hogy az adatok nyomtatásra készen állnak. 

A nyomtató átveszi az adatokat, a másik handshake vonalat (BUSY) magas 
jelszintre állítja, és mindaddig ezen a szinten tartja, míg fel nem dolgozta az 
adatokat, azaz amíg nem áll készen a következő adat fogadására. A gép 
minden újabb adat elküldése előtt megvizsgálja, hogy a BUSY vonal alacsony 
szintű-e. 

Az adatok továbbítására a C64-es a CIA 2-t használja. Az adatforgalom a 
B porton (user port) át zajlik le. A STROBE jelet a PA 2-es kimeneten (az A port 
2. bitje) állítja elő. A nyomtató BUSY vonala a user port FLAG kimenetére 
csatlakozik. Magas jelszintről alacsonyra váltás közben a CIA megszakításve- 
zérlő regiszterének (ICR) 4. bitje automatikusan 1 lesz. Ebből ismerjük fel, hogy 
a nyomtató készen áll az adatfogadásra. Az alábbi idődiagram a leírtakat 
szemlélteti. 


BUSY 


STROBE 


he 


A fenti rövid attekintés után elemezzük a programot: 
A címek rögzítése után az OPEN rutin vektorát átirányítjuk a saját rutinunkra. 
A rutin a rendszerrutinokhoz hasonlóan a logikai file-szárn elienőrzésével 
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kezdődik. Ha a file-szám nulla, hibajelzést küld, egyébként megkeresi a hozzá 
tartozó file-t. Ha nincs ilyen számmal nyitott file, akkor ellenőrzi, hogy a nyitott 
file-ok száma elérte-e a tizet. Ha igen, akkor megtelt a táblázat, így kiírja a TOO 
MANY FILE hibaüzenetet, egyébként folytatja a feldolgozást. 

Megvizsgálja az egységszámot, és ha az nem 4, akkor visszatér a rendszer 
OPEN rutinjára. 

Egyébként megnöveli eggyel a nyitott file-ok számát, bejegyzi a file logikai 
számát, az egységszámot és a másodlagos címet a táblázatba, és a puffermu- 
tatót a puffer elejére állítja. Pufferként az operációs rendszer alatti, $E000-tól — 
$FFFF-ig terjedő 8 kbyte-os területet használjuk. 

Ezután az user portot kimenetre kapcsoljuk és a STROBE jelet magas szintre 
állítjuk. 

A BSOUT és CLOSE rutinok vektorait úgy módosítjuk, hogy az a saját rutinjaink- 
ra mutasson. A nyomtatás a megszakítási pillanatokban történik, ezért megvál- 
toztatjuk a megszakítási vektort, az új rutin a SPOOLING címnél kezdődik. 
A C kapcsoló törlése után RTS utasítással befejezzük a nyomtatást. 

A SPOOLING rutin, amely össze van kapcsolva a rendszermegszakításokkal, 
átkapcsolja a tárfelosztást a RAM-ra, majd megvizsgálja, hogy van-e a puffer- 
ben nyomtatásra váró adat. 

Az igen választ onnan észleli, hogy az írásmutató — amit a BSOUT rutin minden 
írási művelet után megnövel — nem egyezik meg a kiviteli mutatóval. Ha 
eközben a nyomtató kész az adatok fogadására, a rutin beolvas egy byte-ot a 
pufferból, és kihelyezi azt a user portra. Átkapcsolja a STROBE jelet alacsony, 
majd ismét magas jelszintre, ezzel jelezve a nyomtatónak, hogy egy karakter 
nyomtatásra vár. 

Végül megnöveli az otászáát mutatót, hogy a következő lépésben a puffer 
következő adatára kerüljön sor. 

Az aktuális karakter feldolgozása után visszatérünk a rutin kezdetére, és ez a 
ciklus mindaddig ismétlődik, míg el nem fogynak az adatok, vagy amíg a 
nyomtató már nem képes több adatot fogadni. 

Az EXIT címkével visszaállítjuk az eredeti tárfelosztást és a rendszer megszakí- 
tási rutinját. 

A BSOUTNEYW rutin vizsgálja meg, hogy a kiírás a 4-es egységre vonatkozik-e. 
Ha igen, akkor az adatot beírja a pufferba és a puffermutatót eggyel megnöveli. 
A rutin nem változtatja meg a regiszterek tartalmát, és visszatérés előtt törli 
a C kapcsolót, ezzel jelezve, hogy a művelet hibamentes volt. 

A CLOSENEW rutin szintén csak akkor dolgozik, ha az egységszám 4. Ekkor 
visszaállítja a BSOUT és CLOSE rutinok vektorainak és a megszakítási vektor 
eredeti értékét. Ezzel a pufferban tárolt adatok kiírása megszakad. Ha nem 
akarjuk, hogy ilyenkor adatok elvesszenek, akkor be kell iktatnunk egy várako- 
zó ciklust, amely addig vár, amíg a puffer írás- és olvasásmutatója egyenlő nem 
lesz. 

Végül megjegyezzük, hogy a nyomtatáshoz szükség van egy kábelra, amely a 
C64-es user portját pl. egy EPSON nyomtató Centronics illesztőjével összeköti. 
A kábel felépítése: 
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USER PORT - CENTRONICS 
A GND 16 
B FLAG - BUSY 11 
c Dag 2 
D D1 3 
E D2 3 
F D3 S 
H D4 6 
J D5 63 
K D6 8 
u D7 9 
M PAZ - STROBE 1 


A legtöbb Centronics illesztővel ellátott nyomtató ASCII karakterekkel dolgozik. 
Ha a karakterek között van olyan, amely a Commodore 64-es jelkészletből 
hiányzik, akkor kiírás előtt még egy átkódolást is be kell iktatni. 

Az üzemeltetésnél a következőkre kell ügyelni: 

csatlakoztassuk a gépet és a nyomtatót, majd kapcsoljuk be őket ebben a 
sorrenben: először a gépet, aztán a nyomtatót. Ez a sorrend garancia arra, 
hogy a nyomtató a READY állapotba való átmenetkor a CIA FLAG bitjét beállít- 
ja. Most töltsük be a gépi kódú rutint, és SYS 52224 utasítással indítsuk el. 
Ha most OPEN 1.4 és PRINT / utasításokat írunk a BASIC programba, a gép az 
adatokat a pufferba írja, és a puffer tartalmát a megszakítások közben kinyom- 
tatja. A puffer feltöltése nagyon gyors, így lehet, hogy a BASIC program már 
rég lefutott, miközben a megszakítási rutin még a puffer tartalmának kinyomta- 
tásával foglalatoskodik. 
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4.1 Kulcsszavak es tokenjeik tablazata 


Token Utasitas 


$8C 149 RESTORE 
$BD 141 GOSUB 
$8E 142 RETURN 
$8eF 145 REM 
$90 144 STOP 
$91 145 ON 

$92 146 WAIT 
$95 147 LOAD 
$94 148 SAVE 
$95 149 VERIFY 
$96 150 DEF 
$97 151 POKE 
$998 152 - PRINTH 
$979 155 PRINT 
$9A 154 CONT 
$9B 155 LIST 
$9C 156 CLR 
$9D 157 CMD 
$9E 158 SsSYs 
$BE 190 cos 
$CO 192 TAN 
$C2 194 PEEK 
$C4 196 STR$ 
$C6ó 198 ASC 
$CB 200 LEFT$ 
$CA 2092 MID$ 


189 
191 
195 
195 
197 
199 
201 
205 


Utasítas 


ES! LB 


A táblázatban először az önálló utasításszavakat soroltuk fel ($80-$A2), majd 
azokat, amelyek mindig egy másik utasítással együtt fordulnak elő ($A3-$BO). 
Ezt követik az algebrai és logikai ($AA-—$B0), majd az összehasonlító műveletek 
($B81-—$B3), végül a BASIC függvények ($8B4-$CA). 
" A táblázat utolsó sora a GO kódja, ugyanis a GOTO utasítás GO TO formája is 


megengedett. 


Az utasításszavak mögött, ahol szükséges, feltüntettük a megfelelő ROM rutin 


kezdőcímét. 
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4.2 Nullaslap osszehasonlíto tablazat 


MEGNEVEZES 


LOAD/VERIFY-KAPCS. 
Típuskapcsolo 
INTEGER kapcsolo 
BASIC prg. kezdet 
BASIC valt. kezdet 
BASIC tomb kezdet 
BASIC tomb vege 
BASIC szov. kezdet 
BASIC RAM vege 
Aktualis sorsz. 
FACH1 

FACH2 

CHRBSGET 

CHRGOT 

TXTPTR 

SR 6Y8-nel 

AC 8YS8-nel 

XR S8YS-nel 

YR 8Y8-nel 
US8R-vektor 


$2B/$2C 
$2D/$2E 
$2F/$I30 
$51/$52 
$55/$54 
$537/$38 
$59/$5A " 
$61-$66 
$69-$6E 
$70 

$76 
$77/$78 
$30F 
$30C 
$30D 
$30E 
$311/$312 


$10 
$2D/$2E 
$2F/$530 
$531/$32 
$53/$54 
$535/$56 
$59/$5A 
$I3B/$5SC 
$65-$6B 
$6A—$OF 
$5380 
$386 
$5D/$JE 
$05 

$06 

$07 

$08 
$1219/$121A 


Amint az a táblázatból látható, a 64-esre vonatkozó címekből úgy kapjuk meg 
a megfelelő 128-as címet, hogy ahhoz kettőt hozzáadunk. : 
Ez érvényes a BASIC értelmező mutatóira is a CHRGET rutinig. 
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— JEGYZET — 


Megnyílt a NOVOTRADE Rt. 
COMMODORE Users klubja! 


SZOLGÁLTATÁSAINK: 
— klubtagoknak szabad gépidőt és szakirodalmat 
biztosítunk. 
— közületeknek és magánszemélyek részére C 


16-os, C 64-es programozói, valamint speciális 
tanfolyamokat szervezünk. 


RÉSZLETES FELVILÁGOSÍTÁS: 


2C 


Számítástechnikai szaküzlet 


1136 Budapest, Balzac u. 35. 
Telefon: 402— 954 
Gábriel László klubvezetőnél 


Ára: 319— Ft 


SZÁMÍTÁSTECHNIKA A KÖNYVESBOLTOKBAN 


Üh. ÜZLETHÁLÓZAT 
9 
] 


NOVOTRADE - 2C ÁRUHÁZ 
1136 Bp.. Balzac u. 35. Tel.: 402-954 


Az alább felsorolt üzletekben már az Önök rendelkezésére állunk: 


e 


ÁLLAMI KÖNYVTERJESZTŐ V. — NOVOTRADE 2C 
BUDAPEST ska I 


"Táncsics Könyvesbolt . Műszaki Könyváruház 
1073 Lenin krt. 17. 1061 Liszt Ferenc tér 9. 
Telefon: 422-178. Telefon: 420-353 


MŰVELT NÉP KÖNYVTERJESZTŐ V. — NOVOTRADE 2C. 


PÉCS VESZPRÉM 
Zrinyi Miklós Könyvesbolt " Kölcsey Ferenc Könyvesbolt 
7621 Jokal u. 25. B200 Kossuth L. u. B. 
Telefon: 72-12836 
f DEBRECEN 
: SZEGED 4 SET 


1 w 
, T 


8 Szak- és Ismeretterjesztő 
Tömörkény Könyvesbolt .: . Könyváruház 

6720 Lenin krt. 48, 4024 Hunyadiu. B. 
Telefon: 62-21453 - Telelon: 52-23237 


SZOMBATHELY — - — SZOLNOK 


da 


Savarla Könyvesbolt Szigligeti Könyvesbolt 
9700 Mártírok tere 1. —. J 5000 Ságvári krt. 35. 
Telefon: 94-12341 b Telefon: 56-11133 


Minden érdeklődőt szeretettelvár . 
az ÁKV, a Művelt Nép és a NOVOTRADE  RT.! 


! 


